If you have a problem that can be solved by a computer— we have a systems solution. 

# Two central processors with maximum RAM capacities of 56K and 384 K bytes 

# Three types of disk drives with capacities of 1 75K, 1 ,2M and 1 6M bytes 

# Two dot matrix printers with 80 and 132 line capacity 

A Selectric typewriter interface and a daisy wheel printer 

Match these to your exact need, add one or more of our intelligent terminals and put together 
a system from one source with guaranteed compatibility in both software and hardware. 

Southwest Technical Products systems give you unmatched power, speed and versatility. They 
are packaged in custom designed woodgrain finished cabinets. Factory service and support on 
the entire system and local service is available in many cities. 




SOUTHWEST TECHNICAL PROOUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344 0241 
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-ITEMS SUBMITTED FOR PUBLICATION- 
{Letters to the Editor for Publication) All 'letters to the 
Editor" should be substantiated by facts. Opinions should 
be indicated as such. All letters must be signed. We are 
interested in receiving letters that will benefit or alert our 
readers. Praise as well as gripes is always good subject 
matter. Your name may be withheld upon request. If you 
have had a go^d experience with a 6800 vendor please 
put it in a letter. If the experience was bad put that in a 
letter also. Remember, if you tell us who they are then it is 
only fair that your name not* be withheld. This means that 
all letters published, of a critical nature, cannot have a 
name withheld. We will attempt to publish verbatim' 
letters that are composed using good taste/ We reserve 
the right to define (for '68' Micro) what constitutes good 
taste 

(Articles and items submitted for publication) Please, 
always include your full name, address, and telephone 
number Date and number all sheets. TYPE them if you 
can t poorly handwritten copy is sometimes the difference 
between go, no-go. All items should be on 8X11 inch, 
white paper. Most all art work will be reproduced photo- 
graphically, this includes all listings, diagrams and other 
non-text material. All typewritten copy should be done 
with a NEW RIBBON. All hand drawn art should be black 
on white paper. Please no hand written code items over 
50 bytes. Neatly typed copy will be directly reproduced. 
Column width should be 3Y* inches. 

(Advertising) Any Classified; Maximum 20 words. All 
single letters and/or numbers will be considered one (1 ) 
word. No Commercial or Business Type Classified 
advertising. Classified ads will be published in our 
standard format. Classified ads $7.50 one time run, paid 
in advance. 

Commercial and/or Business advertisers please write 
or phone for current rate sheet and publication lag time. 
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WANT TO BE KING OF THE HILL? 

TREAT YOURSELF ROYALLY WITH GIMIX UNIQUE AND INCOMPARABLE 
BOARDS AND SYSTEMS. . . DIP-switch Versatility for use with 
both SS50 (6800) and SS50C (6809) Systems (SWTP. etc.) 

THE FIRST AND ONLY 32K STATIC RAM BOARD... 

Designed for use with: • Existing SS50 Systems 

SS50C Extended Address Systems 

FEATURES: 

• Decoding for 4 Extended Address Lines 
(allows memory decoding up to 1 megabyte) 

• DIP-switch to set extended addressing or 
disable it 

• 4 separate 8K blocks, addressable to any 
8K boundary by DIP-switch 

• Each 8K block may be Individually disabled 

• Write protect either of two 16K sections 

• Low power consumption — uses 21 14L low 
power RAMS — (2 amps typical for 32K) 

• Fully Socketed 

• Gold Bus Connectors 
* Assembled, Burned In and Tested at 2MHz. 

$438.14 32K $548.15 

16K and 24K Versions ate socketed for 32K and require only additional 2114S for expansion. 




FACTORY PRIME 
STATIC RAMS 



2114L 450 ns $590 200 ns .,.. $6.90 

4044 450 ns $5.90 250 fis $6.90 

A00 $5 00 HANDLING 0« OflOEftS UNDER $200 00 



THE UNIQUE GIMIX 80 x 24 VIDEO BOARD 

• Upper and Lower Case with Descenders • Hardware Scrolling 
* Contiguous 8x10 Character Cells • X-Y Addressable Hardware Cursor 
It is the ONLY Video Board that gives you: 

• A user programmable RAM character generator. Custom character sets, up to 128 
characters each, can be stored and loaded into the board under software control, 
from disk, tape, etc. 

• The ability to choose, under software control, 3§6 displayable characters from 384 
available in the 3 on board (2 EPROM and 1 RAM) character generators. 

• The ability to divide the 256 displayable characters into 8 groups, according to both 
ASCII Code and bit 8; lets your program determine how each group is displayed. 
(Which character generator to use, and whether it wili be normal or Inverse 
video, full or reduced intensity or a combination of these.) 

• GHOSTability: to place multiple boards at the same address and access 
them Individually without affecting the display of the other boards. ( i^ 

• The ability to control all these features, on the fly, through software. 



Phone, write, or see your dealer for details and 
prices on our broad range of Boards and 
Systems for the SS507SS50C bus and our AC 
Power Control Products for all computers. 




Fully decoded, occupies only ?K ct address 

space 

Fufly socketed — Gold bus connectors 

Assembled, Burned In, and Tested at ?MHz. 

Deluxe Version with RAM 

Character Generator 

Without RAM Character 

Generator , 

Also Available... 
J54 or 32x16 Video Board 



$458.76 
S398.74 
S198.71 



inc. 



cimix 

1337 WEST 37th PLACE t CHICAGO, tL 60609 
(312)927-5510 • TWX 910-22V4055 

The Company that delivers. 
Quality Electronic products since 1975 

GIMIX* and GHOST' 

are Registered Trademarks ol GIMIX INC 

SEE GHOST AD PAGE 43 




THE CLASSY CHASSIS 

Wilh ftaud flats Generator cqoo in 

on Mother Board ............. 2>U£U. I5f 

32K SYSTEM incomparable Features... 

at a Comparable Price! $1,594.59 

Includes: Chassis, 6900 CPU, 32K RAM Board, Choice of I/O Card. 

16K Version of above $1,374.49 

• Ferro-Resonanl Power Supply (+ 8V at 25 Amps, + arid - 16V al 5 Amps each.) 

• 6800/6809 Mother Board, has fifteen 50 pin plus 8 DIP-switch addressable 30 pin 
slots, fully decoded to 4, 8 or 16 addresses — Gold Plated Pins 

• Heavy Weight aluminum cabinet with fan and provisions for 1 or 2, 5 inch disk drives. 



(?) amix 

xl\ 1337 WEST 37th PLACE • CHICAGO, ILLINOIS 60609 



(312)927-5510 



TWX 910-221-4055 



We have a wide variety of SS50 bus items available, They are compatible with existing SWTP. MSI, and other manufacturer's products and 
die D)P-swftch features on SIMiX systems allow use of a broad range of existing software. The below Items ere normally in stock except for 
systoms which are customized to your needs. R you don't see what you want, please ask we believe in service. Alt our hoards and systems 
are assembled, burnt-in, and tested. 



HANDUN6 CHARGES 

U.S. On Orders Under $200.00 
Add $5.00 



32K 6300 SYSTEMS: Include 6800 CPU Board, 32K RAM Board, Mainframe Cabinet, Mothor 
Board. Poorer Supply, Fan, Choice of One 30 Pin I/O Card and Cable, Choice of Two Filler Plates or 
Two Disk Regettor Cards. Blndor. Documentation, and Manuals 

16K 6800 SYSTEMS: As Above, With 1 6K Version of 32K HAM Board 

For 6800 CPU wilh 6840 Timor Option Add 



VIOEO BASED SYSTEMS: When Ordered With Either of the Above. 

Video Based Systoms Require Only A Parallel Keyboard and A Video Monitor and Are Faster, 
Lower In Cost, and Glvo You Moro VenaWty and Features For Your Money Than Most 
Terminals. 

64 x 16 VIDEO BOAHO PLUS GMXBUG V. 2.0 Add 

80 x 24 VIOEO BOARO (Without RAM Set) PIUS GMXBU6 V.3.0 Add 

80 x 24 VIOEO BOARO (Full Features) PLUS GMXBUG V.3.0 PLUS THE MANUAL ANO DISK FOR 
PROGRAMMING USER OEFINEO CHARACTER SSfS Add 



12 INCH VIOEO MONITOR (60Hz Ortty), Keyboard and Enriosura. Cables and Connaclors . 



6800/6809 MAINFRAME (Includes Chassis, Power Supply, Switches Fan and Mother 
Board Pkis Baud Rale Generator on Mather Board) 

6800/6809 MOTHER BOARO ONLY 

DISK REGULATOR BOARO 

FIL R PLATES 



6800 CPU BOARD - WITHOUTTIMER 

6800 CPU BOARO WITH 6840 TIMER PACKAGE 



MEMORY BOAROS 

32K STATIC RAM. SOCKETED. WITH EXTENDEO AODRESSING 

24K VERSION OF ABOVE (SOCKETED FOR 32K) 

16K VERSION OF ABOVE (SOCKETED FOR 32K) 

16K GHOSTabte STATIC RAM 

8K 2708 EPflOM BOARD 



$1,594.59 



1,374.49 



64 00 



700.00 



400.00 



460.00 



350.00 



828. 19 



294.09 



18.91 



14.92 



224.03 



288. 06 



548. 15 



438 14 



328.12 



68.16 



98.34 



SOFTWARE 

GMXBUG MONITORS: 

2K VERSION 1- ON 2 2708s 

3K VERSION 2- ON 3 2708s 

3K VERSION 3 - ON 3 2708s 

VERSION 1 MANUAL ONLY WITH SOURCE USTINGS - NO PROMS 

VERSION 2 MANUAL ONLY WITH SOURCE USTINGS - NO PROMS 

VERSION 3 MANUAL ONLY WITH SOURCE USTINGS - NO PROMS 

PROGRAM TO CREATE USER DESIGNED CHARACTERS - MANUAL * DISK 



POWER CONTROL BOARDS 

Contact GIMIX tor Pricing on Complete Turnkey GHOST Systems with Real Time Software. 
RELAY DRIVER PACKAGE Assembled and Tested With 31 Relays, Bracket and Transtotmer 

RELAY DRIVER BOARD ONLY 

BRACKET 

TRANSFORMER 

G. E. RR6 20 AMP RELAY 

OPTO ISOLATED INPUT BOARO (34 SWITCH CLOSURES) 

16-BUTTON REMOTE 2-WIRE KEYBOARO SYSTEM KEYBOARO 

TONE RECEIVER BOARD 

35 BUTTON SERIAL KEYBOARDS - Wood Lemlnala, Black, White or Walnut 

35 BUTTON SERIAL KEYBOARDS - Clear or Smoke Acryhc 4 



FACTORY PRIME CHIPS 

4044s 450 es 

4044s 250 n 

2114LS 450 ns 

2114 s 200 ns 

2708s _ eSflns 

Those are factory prime chips from soma shipments we use In our profosaionai quaoty beards. 



68.54 



88.55 



98.56 



28.51 



28.52 



38.53 



20.61 



448*86 



3821 



14.24 



11.50 



348.85 



9B.83 



248 84 



118.82 



128. B2 



5.90 



6.90 



5.90 

6.90 



8.90 



1.0. BOARDS 

30PINSING PORTSERIAL 

30 PIN 2 PORT PARALLEL 

50 PIN 8 PORT SERIAL (Available Feb. 80) 

50 PIN 8 PORT SERIAL WIT* BAUD RATE GENERATORS 

50 PIN 8 PORT PARALLEL 

CABLE SETS 



88.41 



88,42 



288,40 



318.46 



198.45 



18.95 



VIDEO BOARDS 

64 or 32x16 

80 x 24 WITHOUT PROGRAMMABLE CHARACTER SET RAM 
80 x Z4 ALL FEATURES 



1198.71 



398.74 



EXPORT NOTES 

FOR 50Hz 230V C.V. POWER SUPPLY Add 

80 x 24 VIDEO BOARDS - Specify Format (No Addod Charge) 

On orders under $250.00 for a Singh Board, or Chips, p so Add $30.00 Handing and we witt 
ship Ak Mil Prepaid. 

On tO other orders we orW ship via Emery Ah Freight Coted. and we wM charge no heeding. 
All orders musl ba prepaid In U. S. Funds. Please nets thai foreign checks have been taking about 
eight weeks lor cofloction , so we would advise wiring money or check a draw n en a bank account In 
the U. S. Our bank is Ihe Continental lulnofs National Bank of Chicago, account #73-32033. visa or 
Master Chores else accepted. 



458.76 



30.00 



NOTt: OUR PRICE IS OUR CATALOG NUMBER. PLEASE BE SURE TO PRICE OUT COMPLETELY. 
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Presents 








3 Powerful New SS-50/SS-50C Boards 








DCB-4 


B SCB-69 


/HP M-32-X 








Disk Master 


aEj| Super Computer Board 


■ 32K 










Double Density Controller Board 
and DOS6BD Double Density DOS 


jKl' 6809CPU Board 


' jfej. Memory Board 










$449.00 


Ml $299.00 


'fjM $539.00 $439.00 
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The new DCB-4 is a truly stated ♦the^art develop- 


The most versatile 6809 CPU Board on 


The first and only 32K 






ment which allows up to 366K bytes to be stored 


the market is now available from 


Static Ram Board on stan- 






on a single 5%" disk and has these outstanding 


Smoke Signal Broadcasting and has the 


dard size (5V x 9") 






features: 


following features: 


SS-50/SS-50C Bus Cir- 






• Up to four 5Vand four 8" drives can be 


• Standard 2 MHz operation. 


cuit Card is made by 






handled in the same system with a user de- 


• 20 bit address generation for up 


Smoke Signal, 






finable logical unit table. {DOS68D will be 


to 1 Mbyte of memory. Uses an 








compatible with future hard disk systems). 


improved address translation RAM 


• Switch selectable to 






• Under software control, the user can select 


which is compatible with present 


any 4K boundary. 






the following for any drive: 


extended addressing schemes yet 


• Any 4K block may be 






ft Single sided or double sided operation. 


requires much less overhead when 


switch enabled or dis- 






<r Single density or double density data. 


used in multiuser systems. 


abled. 






ft 6K".or8". 


• All onboard devices can be switch • Fully compatible with 






ft Stepping Rate, 


selected to occupy any or all ex 


SS-50C extended ad- 






ft 40 track or 35 track density on double 


tended pages. Any onboard device dressing (allows mem- 






sided 5ft" drives. 


may be disabled and its memory ory decoding up to 






ft User can select the system boot configu- 


space is then available for exter 


1 Mbyte). 






ration. 


nal memory. 


• Extended addressing 






• Occupies only 16 bytes of memory space 


• Standard real-time clock (time- 


capability may be 






<F760 F76F standard). User selectable to any 


of— day, day— of— week, day-of— 


switched off for com- 






16 byte address space. 


month) with battery back up ca- 


patibility with SS-50 






• Can read and write a single sector by itself. 


pable of generating programmable 


systems. 






Onboard buffer memory allows full inter- 


interrupts. 


• Gold Bus Connectors 






rupt capability in interrupt driven systems. 


• Up to 20K of EPROM can be in« 


for high reliability. 






Once data transfer has been initiated, no 


stalled on the CPU Board. 


• Guaranteed 2MHU op- 






more processor time is required. 


• Standard IK of RAM on board. 


eration {tested at 2.2 






• Contains extended decoding circuitry for ex- 


• Includes improved 6809 Monitor 


MHz). 






tended addressing per SS— 50C bus which 


(and source listing). 


• Low power consump- 






can be enabled by an option jumper. 


• Contains an FPLA for decoding 


1 tion - 8 volts at 






• SSB provides a means for copying software 


EPROM address and optional de 


2.4 amps typical. 






written by older versions of DOS68 to be 


vices. Switches are used to select 








read by DOS68D. All new media formatted 


2K/4K EPROM and Fast/Slow I/O, 








by DOS68D can be read by all older versions 


• Contains provision for optional 


M-32-X 32K Memory 






of DOS68. DOS68 is SSB's 6800 disk opera- 


9511/9512 floating point pro 


Board is priced at 






ting system. 


cessor. 


$539.00, 






• Track of side is recorded in single den- 


• NM 1 line is user selectable to work 








sity per IBM standard. 


with either SS-50 or SS-50C 


) M-24-X 24K Memory 






• Phase-locked-loop assures highest data inte- 


busses. 


Board expandable to 32K, 






grity attainable. 


Price for the new SCB-69 is only 


is $439.00. 






All of these features are available for immediate 


$299.00 for an assembled, burned-in 


i 






delivery on one standard 5V£" x 9" 50 pin SS— 50/ 


fully tested board. * -■ 


AndourM-16-X 16K 






SS-50C card for only $449,00. The price includes 




board is back to the old 






DOS6BD version 5.1 , MONITOR object code on 


jr-^jm^ 


price of $299.00. 






diskette, and a manual with the source listing. 


^IS^K 
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31336 Via Colinas, 


West lake Village, CA 91361, (2 13} 889-9340 
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In the world of 6800 Microcomputing 

there is only one Universal Mini-Disk System 



the PERCOM LFD-400 
with SOFTRAN " 






Made possible by SOFTRAN™ an inno 
vative $24.95 translator program, the 
reliable Percom LFD-400™ has just 
been upgraded to the first universal 
mini -disk storage system. 

Suddenly the two worlds of 6800 
minidiskette software become one 
Because the LFD-400™ with SOF- 
TRAN™ can read either soft-sectored 
or hard-sectored disks. 

And owning an LFD-400/SOFTRAN 
system means you can run minidiskette 
programs from the enormous combined 
selection of all of the principal 6800 soft- 
ware houses — TSC, Computerware, the 
Software Works, Hemenway Associates and of 
course Percom, 

Available in versions for mini FLEX^ FLEX 2.0 r and 
Smoke Signal Broadcasting Company's DOS, 
SOFTRAN™ copies soft-sectored minidisk- 
ettes track-for-track onto hard-sectored mini- 
diskettes. If the source drsk includes a FLEX T or 
'Smoke' DOS, SOFTRAN™ is used to modify the 
operating system to function with the Percom 
LFD-400™. 

SOFTRAN™ is supplied on a minidiskette along 
I with utilities for only $24.95, 
I A users manual is included. 
You must indicate whether 
SOFTRAN™ is to be used 
for mini FLEX*, FLEX 2,0' 
or Smoke's DOS. 

The Percom LFD-400™ 
mini-disk system sells for 





only $599.95, complete with: (1 )the drive, drive 
electronics and Percom's rugged PS-401 power 
supply all in a finished enclosure, (2) a demon- 
strably superior controller PC card featuring an 
explicit data/ clock separation circuit, MPX, a re- 
markable 2K DOS, and provision for 1K extra 
PROM, (3) an interconnecting cable and (4) a 70- 
page users manual. 

Also available: Upgrade kits for SWTP or 'Smoke 1 
mini-disk drive systems. Kit includes LFD-400™ 
controller, MPX DOS & SOFTRAN™, Only 
$22495. 

Available soon! 

SOFTRAN™ for Percom's 77-track LFD-SOO 1 
mini-disk system; SOFTRAN/9™ for 6809 FLEX" 
files and programs. 

' trademark of TecfinicaJ Systems Consultants, Inc 






PERCOM DATA COMPANY «NC 

Percom peripherals for personal computing' 



To place an order or request additional literature 
call toll-free 1-800-527-1592. For technical infor- 
mation call (214)272-3421 Orders may be paid by 
check, money order. COD or charged to a VISA or 
Master Charge account, Texas residents must add 
5% sales tax , 

TOCE5 *NO BPfClf CAilQfcS HiMMCT TQ OiAMOi Without *OTrC£ 



A Few Extraordinary Products for Your 6800/6809 Computer 

From Percom , . . 

Low Cost 
Mini-Disk Storage 
in the Size You Want 




Percom mini-disk systems start as 
low as $599.95. ready to plug in and 
rurv You can't get better quality or a 
broader setection of disk software 
from any other microcomputer disk 
system manufacturer — at any price T 

Features: K 2- and 3-drive systems 
in 40- and 77-track versions store 
102K- to 591 K -bytes of random ac- 
cess data on-line • controllers in- 
clude expllcil clock/data separation 
circuit, motor inactivity time- out cir- 



cuit, buffered control lines and other 
mature design concepts • ROM 
DOS included with SS-50 bus ver- 
sion — optional DCSs for EXOR- 
ciser* bus ■ extra PROM sockets 
on-board ■ EXORciser* bus version 
has 1 K-byle RAM ■ supported by ex- 
tended disk operating systems; as- 
semblers and other program de- 
velopment/debugging aids; BASIC. 
FORTRAN, Pascal and SPL/M lan- 
guages; and. business application 
programs 




•till Mi! V 

111* 




£? 



EXORciser* Bus LFD-400EX 1M -800E X™ Systems 




Upgrade lo 6809 Computing Power 

This 6809 upgrade adapter may be used on the SWTP 6800 
and most other 6800/6802 MPU cards. Supplied assembled 
and tested, t costs only $69 95 with user instructions The 
ongmal system may be restored by merely unplugging ttie 
adapter and a wire-jumpered DIP header, and reinserting 
the original components Also available tor your upgrade 
computer rs PSYMON™ the Percom SYstem MO Niter for the 
Percom 5809 single -board computer PSYMON 7 " on 2716 
80M costs only 569 95 — PSYMON 1 * is also available on 
mmidlskelle. wilh source and object files, from the Percom 
Users Group. 



'" irodwrns* ot pwcom Dais Comp any, inc 

* tradarark of The Motorola Ctr^waicr> 

FVJC85 and speafteobans »ij r ect *o cftenpa vdtttoJt notice 



Full Feature Prototyping PC Boards 



Percom SS-50 and I/O bus prototypmg 
cards include allol the features needed 
for easy, straightfoiward prototyping 
Use wire wrap, wiring pencil or solder 
wirmg Features lln-Jead plating over 2 
oz. copper wets quickly, solde s easily • 
provision tar power regulators and dis- 
tributed capacitor bypassing - SS-50 
bus card accommodates 34* and 



SO-pin nbbon connectors on top edge, 
10 pin Molex connector on side edge 
— costs onJy $24.95, • I/O bus card is 
1-1/4* higher than SWTP I/O card, ac- 
com odates 34-pin ribbon connector 
and 12-pm MoJex connector on top 
edge —costs only $14 95 • Both card 
designs accept 14-, 16. 24-and40-pm 
DiP sockets. 



The Electric Window™: Instant. Real-Time Video Oisplay Control 
This VDC card resrdes completely in mam memory so that control is 
accomplished instantly by direct MPU access to the on-board 2K 
character-store memory and the display control registers Price is only 
$249 95 Features: Programmable CRT controller chip provides ex- 
traordinary capability for software control of functions such as number 
ol characters per line, 
number i\ lines dis- 
played, highlighting and 
interlaced or non- 
interlaced scan ■ in- 
cludes ASCII 128-unit 
character generator 
which generates 7-dot 
by 12-dot characters — 
lower case letters have 
descenders • provision 
for optional ROM for. 
special characters/ 
symbols » comprehen- 
sive manual includes full 
listing of W1NDEX™, the 
Electric Window™driver 
program — WINDEX™ 
is also available on 
minidiskette through the 
Percom Users Group 



•> 



^| 






PERCOM 



PERCOM OATA COMPANY, INC 

211 N K1R6V GARLAND TSXAS 730*2 

anuere^tei 



Products are available at Percom dealers nationwide. Call toll-free, 
1-000-527-1592. for the address of your nearest dealer, or to 
order direct. 
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Multi-user Educational System <x\ the /09 



George Gerhold and Larry Kherfaty 
Micropl, 2445 N. Nugent, Lumml Is. Wa, 96262 

At Mlcropl we have developed a multi-user systems software package whlcti runs on the SwTPC /09 (56K) 
computer. Although this system was designed for the classroom, the features make the system useful 
wherever a number of relatively unsophisticated computer users or a number of relatively simple 
applications must be served simultaneously. 

A classroom computer system should provide three services: an author language of the Mghest quality 
for Computer-Assisted Instruction (CAi), a standard computational language for use In data analysis and 
In the teaching of programming, and a text editor for use In program preparation and in the teaching of 
word processing. High quality CAI Is very rich In user interaction, as such It makes rather modest 
demands on the CPU as much time Is spent waiting for user responses* High quality CAI has an extremely 
complex branching structure which requires a disk. The hardware requirements for the other two 
applications are essentially the same as those for CAI as students learning to program spend most of 
their time entering and correcting programs and comparatively little time actually running them. The 
combination of modest CPU demand with the need for a disk suggests a multi-user system. The Mlcropl 
Educational System Is such a system. 

The author language used for CAI applications Is COMMON PILOT. COMMON PILOT Is the most widely 
Implemented CAI language; previous Mlcropl Implementations Include the 6800, North Star, CP/M, Helios, 
TRS-80, TERAK, TERC, Alpha, Interdata, and PASCAL versions. The 6809 version is the most advanced 
version; it includes Instructions for graphics, file manipulation, and a full range of numeric (floating 
point and scientific) and siring operations and functions. Because many readers are not famllar with the 
concept of author languages we will give a brief account of their characteristics. An autlior language Is 
designed to make It easy for an author who Is not primarily a programmer to program the computer to 
engage a user (student) In a dialogue. A crucial feature of any autlior language Is the ability to 
recognize keywords imbedded in user responses. In a good author language It Is very easy to allow for 
case and space editing, for spelling errors, for multiple answers, and for alternate answers - in all 
combinations. COMMON PILOT handles all this with a single Instruction. Other necessary features Include 
graphic display, easy positioning of text, execution of instructions generated at run time, full 
computational power, record keeping, cont Inutat Ion of program execution after program errors, and 
non-spec 1 flea t Ion of Input type (numeric or string?. Al so micro versions of author languages slould 
execute programs directly from the disk so that the size of the memory will Impose no limit on the 
program length. 

C0KW0N PILOT includes alt of the features listed above. A complete description of COMMON PILOT would 
require several articles the length of this one, so we will restrict ourselves here to a brief outline of 
the language. The fundamental Instruction type Is specified by a one or two letter op code. The op 
code may be modified by one or more single letter modifiers, and Its execution may be made conditional by 
attaching a BASIC syntax expression to the op code. The colon Is used to separate the op code (and 
modlfers or conditional) from the text field. For example, 

T(C=U;Everythlng after the colon will be typed If C=U The op codes are as follows: 



OP CODE 
T: 



E 

C 

R 

D 

G 

XI 

Fl 

FO 

PR 



FUNCTION TEXT FIELD 

type message to be typed 

continue continuation of message to be typed 

accept optional, variables to be set from response 

match keywords to compare with response 

Jump destination 

use subroutine to be used 

end optional, return point after subroutine 

compote assignment code or edit string codes 

remark remark 

dimension string length or array size 

graphic vector or point coordinates 

execute string where Instruction stored 

file In record number and destination 

file out record number and source 

problem auto options on responses etc. 



The modifiers are: 

H 
J 
S 
X 

y 

N 
Digit 

Z 
C 



suppress line feed with type 

automatic jump with match 

spelling correction on match 

suppress editing on response 

execute only if last match successful 

execute only if last match unsuccessful 

execute if same value as answer counter 

execute if error flag set 

execute If last relational expression true 



The special characters which can be used In the text field of Mj are 



* match any single character 

& match any number of unspecified characters 

% match space or either end of response 

1 or operator (4 Is and operator) 
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Operators 


4 - * / 


Relational 


■ o < 


Functions 


ABS FIX 




LOG IN 



The computational features are: 

• IKconcet) 

> <* >» 4<end)v» (not) Kor) 
IMT SGN RND SIN 00S ATN SQR Etf> 
STR FLO ASC CHR LEM INS 
The subscripting allows one and two dimensional numeric arrays of maximum dimension 999 and strings of 
maximum length 999. Substrings are specified by the notation AS (position, length ), and substrings can be 
used on either side of the assignment operator ■. 

This Ts not a complete list of the features of COMMON PILOT, but It should be sufficient to Justify 
our claim that C0*t40N PILOT Is the most powerful author language available for microcomputers and our 
claim that It Is competitive with author languages used on the largest computers* 

Because the expressions In COWON PILOT are written In BASIC syntax we were able to create a version 
of BASIC based on this expression processor. We call this version Student BASIC because It was designed 
for use In teaching beginning students the fundamentals of programming* Variables, arrays, strings, 
dimensioning, loops, conditionals, and subroutines are all Included. The following Is a summary of the 
features found In Student BASIC* The elements of the expressions are the same as those listed earlier In 
the summary of COMMON PILOT. The statement types In the current version are 

DIM INPUT 

END LET 

FOR ... NEXT REM 

GOSUB RETURN 

GOTO STOP 
IF „, THEN 
Line numbers are not required; they serve only as destinations for GOTO end GOSUB. 

A number of extensions to the Student BASIC are planned. The most notable of these Is file 
manipulation. We want to make It clear that we do not Intend to expand Student BASIC Into a full-feature 
BASIC. This will remain a teaching version which can also be used for multiple terminal Input. 

The text editor Is a screen-oriented editor besad on the features of the SwTPC CT-62 terminal. The 
screen functions as a 16 Una window which can be shifted forward or backward through the file. All 
editing Is done on the bottom line of the screen. Overtyping replaces characters; Insert and delete 
have the obvious effect. The following Is a summary of the editor functions. 

Scroll up, Up arrow. Return - move text up one line 

Scroll down, Down arrow - move text down one line 

Right arrow. Left arrow - move cursor 

Backspace - move cusor left and erase 

Insert - Insert space, bump text right 

Oelate - remove character, bump left 

Form - change case mode 

Xmlt - leave editor, prompt for save 

Again some extensions are planned. It will be possible to list the disk directory from any terminal, 
and It will be possible to direct output to a printer. 

This text editor can be used to create or edit text files, that Is FLEX files with the .TXT 
extension. Both the COMMON PILOT and the Student BASIC Interpreters execute such files as programs. If 
a computation Is too complex or too lengthy for the Student BASIC, programs can be entered using this 
text editor In the multi-user node, and subsequently the programs can be run In single-user mode using 
any of the TSC 6609 BASICS. The compiler versions era probably the best for this purpose as neither the 
editor nor those compilers require line numbers. 

When the system Is Initialized a prompt line Is displayed at each terminal. This gives each user the 
choice of one of the following activities: 

Run a C0ie40N PILOT program 
Run a Student BASIC program 
List a text file 
Create a new text file 
Edit an existing text f I la 
In addition the master terminal can return the whole system to FLEX. 
The hardware requirements for the system are 

6809 Computer 

Dual Disk Drives <8 tt preferred for multiuser) 
I to 4 CT-82 Terminals 
I to 4 Serial Interfaces 
MP^rf Numeric Processor 
3* (1 user) to 56K (4 users) 
FLEX DOS 
The system Is supplied In a four terminal configuration with the assumed memory size of 56K. This 
provides an 8K workspace for each terminal. The workspace Is used mainly for array, label, and string 
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storage In COF-WON PILOT end Student BAStC and tor text storege Tn the text editor. No elteretlons are 
needed with fever termlnels. Instructions are Included tor reallocation of the workspace as there Is no 
reason that the partitions need be of the same size- 



The Mlcropl Educational System can be purchesed direct from Mlcropl, from SwTPC, end from selected 
dealers. The system Is provided *lth an 85 page O0w"M0N PILOT manual, with a 14 page manual on Student 
BASIC end the text editor, and with a variety of demonstration CAI programs* The software can be 
supplied on FLEX compatible disks (5" or S")« The cost of the package (s 1250* When they become 
available the extensions mentioned Nil I be provided at no additional cost to purchasers who return a 
Mlcropl Educational System disk to us. 



BOOKEEPING-Pert 2 
Continued from last month. 



William Stock - 
1125 Lois Or. 
MINlflex" Cincinnati, OH 
45237 



Note: The source listing are of such length that we 
will run additional listing next month. We dedicate 
this space due to the large desire, on the part of 
many readers, for this type software. For those 
running FLEX" 2.0 the conversion should be simple, 
for the small business It can be enlarged to fit 
most needs for a simple system. 



0001 ICI STA*T.a+t 

0012 ICI TWO MQBtM IfTI I VAtlMTCH 

0001 ICI TOIAT'I ftfttt, tTONCI IT (I 
0M4 IU THC FMANUUI Fill, 

0109 Mi Ail CftLlS IK TMC HCiU 
0004 RfR f »0II AN 

010? Hi 

0010 OUR ilti.Fii.liT 

0021 ICRI i1,*l,V2,V3,*4,V3,V4,V7,Vi,V» 

0023 CLQIC 01 

OI30 miiT cmt4Ut;CKfl»<22>;CMMioi;CMtt<o>;CMM(0>; 

OM0 litlT MOIif'l I4TC 1N-..-lT>-,*l 
»4J RER 

0149 RER VALJIATE INfUT 

0047 HI 

0030 A"liT(V1/l0OO0> 

0033 IF 4<l TNEI 40 

0034 IF 4>I2 TNCN 10 

0040 1-1NHUI/I00}-Mt«0 

0041 IF l<l THE! 40 
0044 [F 1>1I THEN 10 
0147 IEM 

0041 Mi CfllCtlMTE HI 

OOlt REN 

0070 C-V1-1«100-4«I0000 

0110 M 4 MSUI 200,210,220,210,210,230,240,270,200,2*0,300,310 
00F0 IF Itt(C/4)-C/4 TiEl tF 4>2 TNlR IF C>0 TNEI 1-1*1 

01*4 |-<1 C«I1IT4fC-1>/4ll/7 

01)0 l»l«T<<l-lNt(l»>*7»l.Sl 

0120 04 i 101(11 1200, 12(0, 1220,1210,1240,1230, 1240 

0123 III 

0123 ICI *I6»T MM 

0127 REM 

01)0 liFliT MiOAT'O DAT (MR, TtfC»*,lt 

0130 IF 4IOLEFT01II.3) TNCi 30 

0140 OFEI 11,0, FtN. OAT 

0119 OCfuiTCH II 

0170 yilfE I1,01,02,V3,V4,V3,V4,V7,VO,VT 

0110 C108E II 

0110 CH4II O.NEIU.OAI 

0200 RCHJil 

0214 l*>*3lriETUM 

0120 |-|*3fi«CT'jlM 
01)0 1-RtfOtRETURJl 

02 40 1-lOlOiRETURlt 
0130 1-1*1 31 1 KIWI 
0344 |«|#tlti»ITUFH 
0170 I*I*2121IETURI 
*»• 1-1*24 JitETUR* 
02*0 l-l*271iKT||ft« 
0110 »-tO04tlETURft 
OHO l*l*134ilCTlfftl 
1211 OI-'fUriREltfii 

1210 M- B MH a iftETtfM 

1211 il-MUE'iWTURR 
123* 4l«-VEl-ift£TuM 
1240 4|'MHU # iRETURH 
1230 4l--FiI-iRETUIR 
1240 iM'liViRETUM 

0001 RER THlt FieeiM LIIII THE 1V1TEM 

0001 Ti ICTNCff. 

0001 IE I /*#*/*. 3 Al 

0*44 MR THE MUHiTCH FILE* 

00*3 ICI 411 [ILL! II TRf IfW 

0*04 Ifi ft0H4H 

00*7 RCi 

0010 OF II 01,0. MM. Ml 

0*20 ttit 0l l V^92,V2,V4 T V3,V4,V7iVi T *f 

042t CL00E II 



0*30 PRINT CKRI4l4l;CMII(22);CNRI(Oi;CMtl40)i€MKI10^ 

0040 IiFUT MOIiT't 14 Tt liRllTTl-.fJI 

0041 ICI 

0043 If I ViltOiTC IlFUT 
0*47 Rii 

0090 A-IiT(Vl/l000O) 
0031 IF A<> TNCi 40 
0034 IF 4)12 TMEI 40 
0*40 ialillVI/tOOI-MlM 
0041 IF R<> TNCi 40 

0044 IF l>It THCR 40 
0*47 Itl 

0*40 IER CALCULATE IAY 

0+tt ICI 

0070 C>V1-I*100-4«10000 

0010 ON A 608(11 200, 210, 220, 210, 240, 230, 240, 270, 2*0,2*0, 300, 310 

0010 IF ElT(t/4)-t/4 TNCR IF 4>2 THlCR IF C>0 THCR 1*1*1 

oioo »Mi*c*ui(ic*n/4n/7 

0110 0-li(Tti*-lNTiiM«7*i.3> 

012i 01 1 IttUl 1200,1210, 1220,1210,1240, iJSO, 1240 

0131 RCR 

0123 RCR HUM 1ATT 

0127 RCR 

Oil* IiFUT MDMT'I 1AT (MM, TtfCr.lt 

O130 IF 4IOLEF7ftll,3) TNCI 30 

0140 OFEI 01.4.FII.MT 

0143 ICR4TCH II 

0170 tfilTC n f Vl,V2 T V3 f V4,V3,V4,V7,VI,V? 

OliO CLOtC II 

01*0 CNA1N O.AtKJ.lAl 

0200 IETIMI 

0210 l-»*JltRETURN 

0220 l»l*39ilETUM 

0210 1'lttOiRETUtM 

014* 1*1* 1 20 1 RETURN 

013* 1-1*131 (RETURN 

0144 I-|*H1 iRETURi 
017* 1-1*21 2 (RETURN 
0)10 •■1*243 tRETURM 
02f* 1-1*273 tlf TURN 
030* 1-1*304 iRfTURl 
011* ■■0*134lRETU«R 
12** RH'tUft'itETUftl 
1210 44-*MN s liCTUM 
1770 44— tl*-»tT 4 
1230 4l- a 4lER a tRCTUII 
»240 «4i"TH(l"iRE1UII 
1230 At-FU a iRCTURH 
1240 »i--SA1-|R£TuM 



ooio em <h?,io >:**##* AP/i/.flAS 

0020 I01U1 1000 

ooio fiint CKi*iii>;CHiiii22);CHiRi(0);CHtiioi; 

0040 FR1IT »U0 4 -| V2;140< 13>;"F011IN0 4 

0030 FR1RT 

0040 FR1IT *ACCT 4^017*1" ;T4l 1 17); "ICICiJPI [OKI" 

0070 iOIUl MSOiREi 1NFUT 

00*0 IF •!■" TMEI 400 

01*0 IF 4<><* TNE4 110 

0100 FRIHT "KC«S «OT ALLQVCI-|0010 330 

0110 IF 4>V4 TNEI 1-1 

0120 IK1)-4«ii(t,11-4jl(2,l) > liF-4ltll) 

0130 FOR l«2 TO 10 

0140 l(2,I>-0 

0190 NEXT X 

0140 If LCR144X14 THEN FIINT 

0t70 FOR I>2 TO 10 

0100 60SU1 1130 iREH IiFUT 

01*0 IF 41**- THEN X-IOiflOlO 2T0 

0200 IF A>V* TNEI PRINT "4CCCII MT AU0UED"iX-l0i00TD 2T0 

0203 I El 

0203 IEN OETCRNIRC IC1IT/CRE0II 

0207 IEN 

m10 IF l(1,1K-V4 THEN 0094J1 30*iOOTO 240 

0220 If 1(1,1 K-V3 TiEl IOIUl S40iOOTO 240 

0230 IF I1T,1X*V4 TNEI lOKII 37Oi00TO 240 

0240 IF K1.1K-V7 TNEI ll«Ul AlOiOOTO 240 

0230 10101 43* 

0240 l(1,X)-4i|(2,l>-lill(X1-44 

0270 F*F~4lt(t) 

0210 IF F«0 THEN X«10tlEN II lAtftMCC 

02*3 IF 1-0 TNCI X-10 

02*0 ICXT X 
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0300 GOWI 13I01REI fRIKl TRANSACTION 

0110 IP P>0 THIN 1MPUT "CVHTTNINg 0* 4T/NT .AttOOTO 340 

0121 MINT MDANRiCTlONI IOT IN IALANCI" 

013* INPUT -MISS RETURN. VAIlOOTO 3t 

0140 IF IIFIHAI,1)«*T- THEN 370 

0310 IF LEF1IEA9, !)■•«• THEN 34 

4144 40T4 310 

0370 OOIUI 2000iRER URtTE TRAM 

0110 vHUlH 

OJfO OOTO 30 

0400 INPUT "IS JOO TENNIMTE9",*! 

0410 IF UFTKAIpDO'l" THEN 30 
0412 REN 

0411 REN CLOSE FlLCl, UPDATE ARANETERS, CHAIN KENT MOERAK 
0414 REN 

0420 CIOIE 12 I IF F-4 THEN UllTE R1,F 

0429 CVOIE II 

0430 OPEN I1.0.PRN.IA1 
0440 ICRATCN •> 

0430 UNITE II, 41 ,U2,U3,V4, 43, 44,47,41, V4 

0444 CL01E II 

0470 IF F-l THEM CHAIN O.PRiT 

0404 CHAIN JIM 

0410 IE* 

0491 REM 4S1IT/CREDIT fUMOUT ]ftE9 

0492 REN 

0304 IF l<»44 UIH 414 

0)10 IF A<*4* THEN 4f0 

013* IF *C«V7 THEN 410 

0331 10 10 410 

0340 |F A<*V4 THIN ifO 

0143 IF i<-Vl THEN 410 

0330 \f *<-M7 1MCN 490 

OHt IOTO 410 

0S70 IF A<«Y4 THEN 490 

05*0 IF A<«V4 THEN 410 

OSK IF A<*Y7 THEN 490 

0100 *0T0 410 

0410 IF A<-V4 THEN 410 

04 20 IF AX-V4 1NEH 490 

04 30 IF A<iV7 THEN 4** 

40 IOT* 490 

0430 If A<*V4 THEN 490 

0440 IF 4<*94 THEN 410 

0470 IF 4<-V7 THEN 490 

0410 1— lOH(»t2,1))«AI8ll)1NETUNH 

0410 »'m<R<2,T>)*4M(l)iRETURfl 

1000 MINT CHRI(14);CHRH22);CHNf(0)rCHf(4(0>;CHRl(0); 

IOTO INPUT -IB LATEST JOURNAL ON II", 41 

1020 IF LEF7KAI, I M>"1* THEN PRINT 'PUT II ON'iOOTO 1010 

1010 OPEH ll f O,PRM.RAT 

1040 RENI II, VI, 42,43,44, 45, V4,V7,VM4 

1030 C10IE II 

1110 KILL l.TRAN.lAT 

1C90 KILL OUTRAN. MT 

1100 OPEN •M.HRM 

HIO OPEH fJ.i.TMN 

1120 NCfUM 

1340 REM 

1143 REN INPUT ROUTINE 

IT 44 %if\ 

ma liitaoifOioittftW M 

1140 IF Af" THEN RETURi 

1170 IF AICtAI)>57 THEN 44--JNETUNN 

1110 A-VALt*«)ig-0 

1140 Z'llFO* T-1 10 LEN14I) 

1200 IF MDl(4t,Y r TI«» ■ THEN I(2)-T|Z-Z*1 

1210 NENT T 

1220 AtiRllMTKM.UNCAD-im) 

T?34 IF AK<AI)>97 IHEN AI«—|RETUNN 

1244 HVALtMltMAIKA) 

1234 IF S(2)>4 THEN At-CNfttl I9)iNETUNN 

1244 A«>R!*Hf l(Al,LEN4Aft>»|(1 >-D(2>> 

1270 IEJURR 

I3!f V NEH 

1340 REM PRINT ICRfEN 

1141 REN 

l3»0 PRlHl 0NRI(14);CHR9122);CNRI(O);CHNI(0);CMRI(0)f 

1120 PRINT -4CCT CREDIT UNIT" 

1130 IHitOMI 1344 

1140 OOIUI 14«0 

1134 HINT 

1344 FOR 1*2 TO 10 

1370 IF »l2,*)-0 THEN X-10H010 1406 

UIO OOIUI T300 

1190 DCSU9 U0« 

1440 HIT X 

1410 REIUftH 

1490 REN 

1493 fcCN 1E44ITIFT I ANOONTI 

1495 IE* 

IfOO At*URtlA|l(l(2,X>ll 

1310 If 0l2,O*lN?ID(2*X>> TNEN AtHI+-.0 M 

1320 IF D(2,l)tlOMNT[DI2,X>«IO» THEN Al-Al*"0" 

1330 RETURN 

1440 PRINT »ll l Xj;?*K13H.IR(M>i; 

1410 IF 4(2,1X0 TNEN PRINT TAJ(P0I*10); 

1421 PIIN1 A4 

1414 HlftR 

2400 F4N 1*1 TO 10 
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2010 If D(2,X)-0 THEN X-IOiDOTO 2030 

20t3 REN 

2413 REN IRAN FILE 

2417 REN 

2024 Iff] IE 02,IU,X»,V2,V1,D(2,X>,DHX> 

1030 nti I 

2C40 FOR X-l TO 10 

2030 IF 0(2,X)-0 THEN X*IOiOOIO 2010 

2033 REN 

2033 REN A/P TR4N FILE 

2057 IEN 

2440 IF 0(1,11*47 THEN UNITE #1 ,IH,X) r ll2,IJ ,V2 

wi tf maw mu m 

2444 NEXT X 

2090 RETURN 

0010 OOTO 3000 

0990 REN P^Jtr. Aftl 

0093 REH SUBROUTINES FIRIT FOR 

0095 IEN F4I1ER ACCESS 

4097 REN 

0C9I IEN SHELL -netiner (ORI 

0449 REH 

0100 I«L 

0110 l-lNTll/2) 

OT20 IF 1-0 THEN RETURN 

0130 11-1 

0140 T-II 

0130 l«T>1 

0140 IF 0(1,TX«D<1,II IHEN 194 

0170 IOIUI 2101 1-T-l 

0110 IF T>4 THEN 130 

0190 IT'IUTiIF IOL-1 THEN 110 

0200 IOTO 140 

0210 C«0(1,T>iD((,T>«0(1,8HD<T,O-C 

0220 C-0(2,THD(2,T)012,BHB12,B)«C 

0240 RETURN 

024J REN 

0245 REH VARIOUS F1LE-HANPL1HI SUBROUTINES 

0247 RER 

0230 OP-CH 12,141 iRCTURN 

0210 OPEN «2,BUS IRETURN 

O370 OPEN I3 T 5«3 tRETURN 

Oilv OPEN 12,1114 RETURN 

0290 OPEN 4J.SW5 iBfTtRI 

0340 OPEN «2 f SU4 (RETURN 

OHO OPEN 12, SU? (RETURN 

41)0 OPEN I3,SU| iRETURN 

4130 RILL lUl.lAT 

4140 KILL IU7.IAI 

0330 KILL IU4.IA1 

0340 KILL 3V9.BAI 

0170 KILL SV4.RAT 

4110 HILL SU3.DA7 

0340 KILL SU2.DAT 

4440 KILL tUI .DAT (RETURN 

4410 OPEN I9»SU| 

4420 OPEN « f $u7 

4430 OPEN 17, SUA 

4440 0P£« I4.SII3 

0430 OPCN IS, St* 

04 44 4»R 94,1»«H 

4474 OPEN B3 r 3U2 

0410 DPfN I2,$U1 (RETURN 

0310 IENI 12, 1(1, 0,4(2,0,0(2,0 I IF E0FI2)*t THEN 390 

0313 RETUIH 

0320 READ 13,111,0, 1(2,0 ,K1fC) |IF E0F(3)>I TNEN 390 

0323 RETUtf 

0330 RENI 44,HI,0,H2,CI,RI3,0 iIF E0F(4»«1 THEN 910 

0335 REIURR 

0340 RENI 13,1(1,0,442,0,413,0 I If £0Fl3>«1 TNfR 990 

0949 REIURA 

0930 RENI RI,ltl,0,l(2,CI,H3,0 iIF EQFl4)-T INCR 5*4 

4333 RETURN 

0540 REND I7,D<1, 0,1(2,0,1(3,0 iIF E0P17)-1 IHEN 990 

0343 RETURN 

0570 READ D*,D(1,C), D(2,C),DIJ,0 itf COP(D)«T THEN 390 

0S73 RETURN 

OSIO RENI l9,0n,O,D(2,O,»l3,O llf €0f(1)«» TNEN 590 

0SD3 REIURR 

4390 1 1 1 ,C ^999494 91|Rf TURN 

041 CLOU 19 

M30 CLOSE II 

0430 CLOSE 17 

0440 CLOSE 14 

0490 ClOOf 13 

0440 CL01E 14 

4170 CLOSE U 

04*4 CLOU 42 ittTUlN 

0490 RlR 

0491 REN IET I 1TENB 
4449 REH 

0700 READ II ,N 

0710 IF EOFUM IHCN 740 

0720 F-F*1 

0730 IOTO 700 

4740 RCITDRE il 

0790 IF F>240 THIN f«INT1F/IUUNETURN 

0744 FOO 

0770 RE I URN 
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3000 OPE* H.C.PTRAN.RAT lOOIUJ 3400 

3010 UN l43,23S>iOOIUR ?COiREA OCT I FILM 

3920 1-0 

3030 FOR X-1 TO F 

3040 RERI 41.I4I,X1,H2,X),H3,X) 

3030 L-X 

3140 IF I0F(1)"1 THCU L«L-l*X«f 

3070 IEXT X 

3010 IF fO THER 3170 

3190 WSOl IOIiREH SORT THIS RATCN 

3100 H-A*l 

3103 REN 

310) REM 0?£ff APPROPRIRIE UORK FILE 

3107 RER 

3110 0* R IOIUI 230,240,270,210,290,300,310,330 

3120 FOR X-l TO I 

3130 UNITE •2 l l<1 t X) l l(2,X) l l43 f X) 

3140 NEXT X 

i' 3-: CLCse #; 

3140 IF EOFtlXO IHEN 3030 

3143 »E* 

3143 RCA OPEN 1RPUUI FILES FOR NflOC 

3147 RE* 

3170 ON N KJIWI 400,470.440,450, 440, 420, 420,410 

3173 CLOSE R> 

3100 OPEN II.I.APST.JJAT 

31 90 SCRRTCH li 

31*3 REM 

3ttt REN FILL IRRLE FIRST TIRE 

3197 RER 

3200 FOR C-l TO * 

3210 OH C OOIUI SIO, 520,330,340,350.360,570,310 

3220 RCXI C 

3223 RIH 

3223 RC« ftCRGC lORTCt 1NP4IT FILES 

3227 RER 

3230 C«1»lf H-1 THEN 3270 

3240 FOR X-2 TO H 

32S0 IF D41 t O>i(1 v XJ THER C-X 

3240 NEXT X 

3270 IF 0(1,0-99999999 THER 3320 

3200 UNITE 01,1(1,0, 1(2, 0,l<3,0 

3?90 OR C OOIUI 310,520,330,340,330,340,370,500 

3310 OOTO 3230 

3320 CLOSE II 

3321 REH 

3323 RER CLOSE I IELETE V0RR FILES 

3327 REI 

3330 ON ■ 00141 1 400,470,440,450,440,430,420,410 

3340 OR ■ IOIUI 400,390,310,370,340,130,340,310 

3343 PRINT IPR1IT 1R-I)»F»L;*]TEH0" 

3350 1NPVI -II OLOEIT A/P HAB1EI ON 10", A« 

3353 IF Rli-" THER 3350 

3340 IF lEFTt(At,»0-Y- THER PRINT "PUT IT OR'iOOTO 3350 

3370 CHA1H PUJ 

3400 PI1RI CHM(l4);CHRt(22>;CHRt(0>fCHRtlO);C*Rt(0); 

3410 IRPUI "II LA1EIT A/P RIITEI OH Ol\AI 

3413 IF M*" THIN 3410 

3420 IF lEFTKM.IJOM- THEN PRINT "PUT IT 0N-|60T0 1410 

3430 RETURN 



0001 REN PATAILEI UPIATC PfeDrDMj 

0010 PRINT eHRIIUlrtNRi(?7>!CHtliO):CHtJ<0>rtNHI<0>: 

0020 PRINT "PAYAILEI UPIATINI" 

0130 KILL 0. PHAlTEI.IAt 

0140 OPEN I2.APIT 

0430 OPEN 14, KAPHAS TEN 

0040 OPEN 13,°. AfMlltR 

OJ?0 MAI »4 f Pl l P2,Pl r P3 > F4 

0000 REAR l2,i,l P : 

0090 IF £1 14>-I IHCR PI -99999999 

01 IF EOf (2»«l IHCR A-99999919 
0200 IF A>PI THER 270 

0210 IF A<FI THEM HOiAEfl SEOUERCE ERROR/ACCt HOI ON FlLt 

0220 IF EOF < 21-1 THER 270 

0210 P2"P2*I 

0240 REAI 02,R,I,C 

0230 IF C0f(2)*1 THIN A.999I9P9P 

0140 10 TO 200 

0270 IF EDF(4)«l THER 400 

C?8C WRITE »,fl,P7,Pt l l*],P4 

0291 REAR #4,PI ,P2,Pl,P3 f P4 

0301 IF C0F(4I-I INER PI -99999999 

0310 ROTO 200 

0320 PR1RT 'ERftOli ACT -JAJ-StO -;C 

0350 C-C*lrlOT0 240 

040O CLOSE 12,14,03 

0410 IF DO THEN OOiREft A10R 1 

0413 PRINT -LAK1I A/P II OH 10" 

0121 PRINT I INPUT Ml L*TEST JOURNAL ON H',44 

0420 IF LEFTKRI,l)C>-r- THER PRINT "PUT IT OHMOOTO 420 

0440 CHAIR JAPP 

0450 PRUT EI'ERRORt." 

0440 PRINT "RC-ERTER ALL RATA Of TIN" 

0470 PtIRT 'CORRECUfll PHfllLER.- 

0410 Pf IRT iPRINI 'PtT IH1EH RISK Of 10" 

0490 iRffT "II II «a-,At 

0495 IF L€ni(AI,IK> a T a THE! 400 

OSOO CHAIR I. HEIR 



0001 RCH APPCRR1 TRANSACTIONS 10 JOURNAL 

0102 rcr TAro>, 6 AS 

0110 PRINT tHMU4J;CHftt(J2>;CHRHO»;CHM(0];CHRiLO>; 

0120 [NPUT Ml OLOEIT JOURNAL OR 10*^4 

0130 IF L£FTl(M,UOM" INCH 20 

0440 PN1RT 

0030 PRINT "NORM IOTNCR NC" 

0040 PIIHT TH IUSY- 

0470 KILL I. JOURNAL. IAT 

0010 OPEN It. JOVRIAL 

0090 OPER I2i 0. JOURNAL 

0100 RCAO II.AJ.C,!,** 

OHO IF EOF < 11*1 THEN 140 

0I7Q UNITE 02,0,1^,9,01 

0130 OOTO 100 

0140 CLOSE II 

0150 OPEN I1,TRI* 

0160 REAI I1,A,I,C,I,A4 

0170 IF EOP(M-l INCH 200 

OIRO UR1TC 42. 4,1. C. 1,41 

0190 OOTO m 

0200 CLOtf 11,12 

0210 PRlHT CHRI414>;CHI1(I2>;CHR1(0>;CHR4(0>;CNR4fO>: 

02IS PR1RT 'LATEIT JOURNAL IS 1R 10,' 

0220 PRINT -NOR 1 REER THE LATERT 0/L ]H 10" 

0730 PRINT 

0240 INPUT -II THE LATEST 0/L IN HO", A* 

0250 IF LEFIKAI.MO-T- THER 210 

0240 CHA1H 0,0111.141 



0001 RER 04NERAL LEIIEI SORT 

0002 RER fiiKT.t** 
0401 RER STJtROUIlREI FIRII 

0049 RER 

OOTO OOTO 1000 

0090 tEH 

0095 tCH INCLL-RCTCICI SORT 

0097 REH 

0100 ]-L 

0110 1-1HTU/2) 

0120 If 1-0 THEN REIURR 

0130 11*1 

0140 T-ll 

0130 S-T4I 

0140 IF KI.TK-KI.II THCH 190 

0170 IOIUI 2llsT-T-liIF T>0 THEN 130 

0190 IWWIiIf 117L-I IHCU 110 

0200 ROTO 140 

0210 C«RU,T>|R<1,T)-R(I,I)|R<1,R)«C 

0220 C-R(2,T>il<2,T>-ll2,S]rl(2,S]>C 

0230 C-K4,T>il(4,T)-|(4,S}tl(4 f SI-C 

0240 IET4JRR 

0742 REH 

0243 RER UARIOUI FILE IUIR0UT1RES 

0247 RCH 

0230 OP tH 13, |H I i RE TURN 

0740 OPEN 17,1117 iRETURH 

0270 OPEN R2.SV3 iREtURl 

0710 OPER 12. 1114 (RETURN 

0290 OPEN 12,143 (RETURN 

0100 OPEN R3.3U4 iRETURH 

0110 OPEN I2.U7 ■IE1LIRH 

0370 OPEN I2,SUR iRClURtt 

0310 KILL SUI.IAT 

0340 KILL IH7.IA1 

O330 KILL 3U4,Mt 

0360 KILL SU3.0AT 

0370 KILL SU4.IAI 

0300 KILL SU3.IAI 

0390 KILL S4I2.RAT 

0400 KILL SVI.IA1 iREIURN 

04IO OPER l*,SUI 

0470 OPEN 11,1417 

0410 OPEN R7,fU4 

0440 OPER 10,1119 

0450 OPEN N9.SU4 

0460 OPEN 14,11(3 

0470 OPEN II.SUI 

0410 OPEN I2.IUI iRETURA 

05t0 RERI I2,»<I,0,I(2,0,R(3.0.R 

0319 RETURN 

0320 REAI 13, 1(1.0.1(2,0,1(3, CI, I 
0525 RETURN 

0330 RERI 14. 1(1, 0.1(2,0,1(3,0, 1 
0333 RETURN 

0340 REAR 13, 0(1,0.1(2,0.0(3,0, 1 
0345 RETURN 

05SO RERR 04,111,0,1(2,0,1(3,0,1 
0535 RETURN 

0540 RERI 07,1(1,0,1(2,0,1(3,0,1 
0545 RETURN 
0570 NEAR IR,KI ,0,1(2,0,1(3,0,1 

575 RETURN 
0510 REAI 19, III, 0,1(2,0,143, CI, I 
0515 rCTvri 

O390 KI,C)"9999M99iREIURN 
0410 CLONE 19 
0420 CLOSE ■• 



(4,Oi]F E0Ft2>M 
c4,Ot]F E0FI31-1 
(4.CH1F E0f(4)-1 
(4,C»iTF E0F4S)-1 
«,Otll E0FI4J-I 
rijClilF E0F17I-I 
(4.CM1F EOFIRM 
(4,C)lIF EOF (91*1 



IHER 540 

1HEH 390 
THER 590 
THEN 590 
THEN 590 
THEN 590 
THEN 390 
THEH 390 
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0430 CLOSE I? 

0440 CLOSE 14 

0.30 CLOSE 13 

OttO CLOSE ft 

0170 CLOSE l J 

Oi60 CLOSE 42 IRETURN 

0440 RER 

0493 REN COUNT R HENS, CONPUIE I FILES 

0493 REA 

0700 REAR II. • 

0710 IF E0F(1 )•! THEN 740 

0720 F-FH 

0730 SOTQ 700 

0?40 Resroflt ll 

0750 IF niAO THC* F-I«t(F/B>»l tSETUHK 
0760 F«30 
0770 RE1UIA 
JOOO OPEN 11 r TRRH 

3010 ItH 0(4,233) tGOSUI 700iRER SET I FILES 
3020 1-0 
3423 RfR 

3023 HER GET 1 SOtl [TENS 
3027 RER 

3030 FOR *•! TO F 

3040 REAR 11,111, XI, 942 ( )M,9<3,X) l l<l f <'r 
3030 l»X 

3040 IF E0FI1I-1 THEN L«l-I|X«F 
3070 NEXT X 
3000 IF L-4 THEN 3170 
3090 OOSUI lOOlRCR SOtl 
3100 tt-N«l 
3103 RER 

3103 OCR OPEN APPROPRIATE UORK FILE 
3107 REN 

3110 OM N MSUI 230.2*0,270,290,290,300,310,320 
3120 FOR X-) TO t 

4130 UR1TE 12, 911, 11,112,11, 111, X) t DU,X> 
3M0 NEX1 X 
3130 ClOSE 12 

3(60 If E0F1D-0 THEN 3030 
3163 REN 

3163 REM OPEN HEROE INPUTS 
3147 m 

3170 ON K OOSUI 410, 470, 440, 4SO,440,43O, 420, 410 
3110 CLOSE IIiKIU O.GlTtAt.SAT 
J190 tf-CR ll,f,l4TRM 
3)?3 RE* 

J195 IER Fill I4HE 1S1 ItME 
3)97 RER 

3200 FOI C-l TO N 

J210 ON C MSUI 310, 320,330, 340, 530,360,570, 5*0 
3220 NCX1 C 
3223 REK 
3223 PEA NERGE 
3227 RER 

3230 C-HIF N-1 THE* 3270 
3240 FOR X«2 TO t 
3290 IF 11I,C)>K1,XI THER C«X 
3760 NEXT X 

3270 IF 11 1,0-99994999 THEN 3320 
3200 UI1TC 11,1(1, C), 1(2, C),9(3.C),9(4,C) 
3290 OX C I0IU1 310,320,330,340,330,340,370,510 
3100 RER BO NCR FOR NEXT ITER 
3310 GOTO 3230 
Jill Uti 

XV* RFH tiftOf rnc flfl 4tF HO** MlFS 
3317 REH 
3320 CLOSE Rl 

3330 ON H OOSUI 410,670,640,430,640,430,420,610 
3340 ON X OOSUI 400,190,110,370,140,330,140,130 
3343 PR1R1 tPRINT liM > -F tl ; " ITENS* 
1330 CHAIN O.OREO. IAS 



0001 ICN THIS PROORAN UPDATES THE GENERAL IEOOER 3 

0002 REM THE 0/L HllTORf. 

0004 RER HMO*!!. Tl^RhIITt IT 

0003 It* OEFORE CHANG! XO ANTIHINO* 

0006 REN 

0010 INPU1 "IS OlDEOT 0/1 OX ll\M 

0020 IF LEFTi(A>,IX> B T a THER 10 

OHO PR1N1 CHR6(I6);CHRII22);CHR»(0);CHRM0);CHRI19); 

0040 RIL1 I.SLNASTfR.SAT 

0130 Rill 1.91HI1T.MT 

0040 0PE* n.o.eiHisr 

0470 0P|R 43,0.GURAR 

0010 OPEN flpOLHlll 

OOIO OPEN I4,0,0U1ASIER 

0100 OPEN IS.OINASTEO 

vi i; KM *■!..■ 

0120 RERI ll,A1l,l),A(2,l>,A(3,l»,AI4,l) 

OI30 RERI I2,A1I,2),A(2,2),A(3,2),A14,2I 

0140 REAI 14,11,02,11 

0130 IF EOFI))»l THER A( I ,1 )«99999999 

0160 IF E0Fl2)«l THEN A( I ,21-99999999 

0200 IF Ml, 1)>ll THER 250 

0203 IF E0F1D-I THER 250 

0210 URIIE I3,A11,11,A[2,II,AIJ,1),A<4,I) 



0220 RERI R1,A(I,I),A(2,I),A(3,[),AI4,II 

0230 IF Et)F(l)»l TH(N A! 1 , 1 1-99999999 

0240 0OTO 200 

0230 IF A(1 ,2>>0I IHEK 320 

0260 IF AII,2K0I THEN PRINT "ERRORi ACT ";NU ,2),*"SER >;A(2,2); 

0263 [F AI»,2)<01 THE* PRTNT "••; AM, 21 lOOTD 290 

0263 IF E0F(2)M INER 320 

0270 02-O2«A<4,2) 

0290 WRITE •l,A(l,2),At2,2),A(l,2),A<4,2l 

0290 RERI 42,A11,2I,AI2,2),AI3,2),A14,2) 

0300 IF E0Fl2)»1 TH€H All ,21-99999999 

0110 OOTO 230 

0320 IF E0F(4IH IHEN 400 

0130 WRITE l3,6l,G2,GI,G3 

0140 REAI 04,01, fiZ f 0t,G3 

0330 IF E0F(4)«I 1HEN 01*99999999 

0360 OOTO 200 

0400 ClOSE II, 12, 13, 04, R3 

0403 PRINT -CURREH1 0/1 ON •l"iPRIRT 

0410 INPUT "PR SORE. HIT RETURR. \A1 

0420 PRINT CHNIH4);CHNI(22»;CMRI<0);CH»I(0);CHRH0); 

0430 INPUT "IS SISTER IISC 01 10", Al 

0440 IF LEFTKAI,IIO a T- THER 430 

0430 CHAll O.NEHU 



0001 REfl THIS 19 THREE PROORAHS - 

0002 RER EHI TEAR, END PERIOD, JOURNAL PRTNT. 

0003 RER U"PA/r.ZJ>« 
0003 STOP tENp 

0010 FMlOOlO lOOiRER (HI TEAR 

0020 F-2iN0I0 lOOiRER ENO PfRIOl 

0030 F-3i«OT0 lOOiRER JOURNAL PilNI 

0100 ON F OOTO 1000,1000,3000 

0120 PRINT CHRt(l6»;CHftt{22»;CHfil(0>;CHRt(0);CHAI(0>; 

0130 RE1UHN 

0990 tEi 

0993 REA EHO TERR I EHI PERIOD 

0993 REA 

1000 OOSUI 120 

1010 PRINT "PUT OLIESI JOURNAL OH 10" 

1020 INPUT "18 IT THERE", Al 

1030 IF At*"' THEN 1020 

1040 IF L!FM(RI,IIO»V" THER 1010 

1030 PRINT 1 1NPUT -10 TOU RANT JOURNAL ON TARE", 41 

1060 IF A««" THEN 1050 

1070 IF lEFTI(AI,l)« a T- TREK T-ItO0I0 1100 

1090 IF lEntiAt, »!<>"** THEN 1030 

1090 T-2 

1100 OPEN H,O.J0URN4l.OAT 

1120 SCRATCH II 

1130 UH1TE Rl ,A 

1140 ClOSE II 

1150 OR 7 OOTO 1160,1230 

1160 POXEI 103, 36> 

1170 POKE( 104,49) 

1190 OPEH II, I. JOURNAL. DAT 

1190 9EA| R1.AI 

1200 A-USCR(X> 

1210 CLOSE ll 

1220 SOSUO 120 

1230 IF AOO 1NEN PRIR7 'W; 

1240 PR] XT "SUCCESSFUL SACRUP" 

1243 IF AOO THEN 1320 

1230 PR! XT "CURRENT JOURNAL On 10" 

1260 PRINT IPI1N1 "PUT LATEST 0/L OX II" 

1270 INPUT h T4 Tt 7NFRF" *» 

1200 If »♦•"- INER 1270 

1290 If IEFMIAI.T10-T" THEN 1240 

1300 IF F-2 IKER CHAIN I .0PNT.IAS,2O 

1310 CHAIN (,0PNT.RAS,10 

1320 INPUT ")RT A9AIN*,AI 

1330 IF Al»"» THEN 1320 

1340 IF ICFTI(AI,I*«"T" THEN 1190 

1330 IF IEF1I(AI,I)- K N" THEN 1230 

1360 SOTO 1230 

2990 REA 

2999 REN JOURNAL PRINT 
27S7 REN 

3000 OOSUI 120 

3010 PRINT 'JOURNAL PRINT" 

3020 PRINT i INPUT "M TOfJ UANT ALL TRANSACTIONS', Al 

3030 If AM*" THEN 3020 

3040 IF lEFT41NI,l)*-T" THEN 1'IIMTO 3)40 

3030 IF lEFTtlAl, I K>"N" INER 3020 

3040 PRINT "TRANSACTIONS IT SEO I" 

3070 PRINT IA|(TU;ilNPUT "OR IT OATE II OR 0)",NI 

3190 IF •••" THER 3040 

3090 IF IEF1KAI.II--9" THEN T«2l00TO 3120 

3100 IF LEFI»(AI,l)-"0" THEN T«3t00lO 3140 

3110 OOID 1060 

3120 1RPUI "IfOlNNINB IE9 «\l 

1130 PRINT TA|m;tlftPuT "EXDIRO 9E9 4",ElG0T0 3140 

3140 INPUT "IES1XN1NI OATE INH|||>,| 

3130 PRIRT TNII4l;j|HPUT "EN9IN6 9ATE IHRll)",E 

3140 PRINT I INPUT -RATA OX", XI 

3170 IF Al»" THEN 1U0 

3190 IF LEPT»(Af,l)<>"¥" THEN 3000 

3190 OPEN R 1,1, JOURNAL. SAT 
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3200 OOIUI !20iPRlR1 "ACC1 IE! RATE ENEIIT OEHT* 

1210 IEAI II.H.NrN.M.pt 

3213 ir Eiril»1 IMER 3301 

i 320 ON 1 §010 1214,1230,1340 

3210 IF P2<l THCH 1210 

3240 IF R2>E THEN J WO 

32)0 #010 3200 

3240 IF [NKPJ/100XI THEN 3210 

3270 IF IMT(P3/100I>E IHEH 3300 

3200 IfllMIMKP^t) 

3290 IF P4«|HT<P4) INCH AMAM*.0' 

3100 [F P4«I0«:m|<P4*1O1 TMXH AMAM*0* 

3310 ll-lfllCOKfJ/lOOl) 

3120 IF P3>M999 MEN H-tEFT»(lt r 2>«*/-«0tlHTl(ll l 2) 

3330 IF PKUOOOO 1NCM RMLCFTI<M,n»V*Nl|MM<RI,2J 

3340 PHUT P1;TAK10-LEHlllH(P2t)-n;P2; 

3130 POTIT T4l<l4*LEN<li»-T>;|»;" •; 

3140 IF P4<0 TMIH PHUT 1AKP0I+7); 

3170 Ftlil «l 

3110 [F ASC<P4)<32 INEN 3210 

3190 MIM PI 

3100 OOTD 1210 

3300 PHUT 

3310 IftPUl -DONE; PRER1 RE1URR. * ( M 

3320 CHAIR O.NIHW 



0001 IEI TNII 10 IHREC PRORRANI • 

0002 REH END tilt, Efll PER 101, I RIAL 1AL4NCE 
O403 ITOP ifHD O-PVr #Af 

0410 r.i f fiQTD l 00 1 R E Pi END TEAR 

0020 F»2iOOlUl i 20 r DOT lOtiiRER EMI PERT 01 

0C30 P*3iOO10 1«0lREH TRIAL IALMCE 

0100 OR F 1010 l000.s3O0.20O0 

ODO RIM 

0113 REN VARIOUI lUIIOUUNEt 

0113 RER 

0120 PRIRT CN*ll14);CHRIl22>;CHRI(0>;CHRK0>;CKfil<0>; 

OUO RETURH 

0100 AMITRMAI 

0110 IF A>|N1(A) TMEH AMAM'.O" 

0120 IF A»10"IHT(A*T|} 1PJER AMAM*0" 

0130 REtURR 

0400 print - -;02;iaiuoi; 

0410 AMIKI4I 

0420 OOIUI 300 

0430 IF I4<0 [NER PHUT T4KP0M31; 

0440 PRIRT Al 

0430 IE IOTA 

0f13 RER 

099S ItH ERR OF TEA* 

Off? IEA 

1000 00S4JI 120 

1010 PR] Ml -1 REEI IT1TEN OIK ON 10* 

1020 INPHT -11 II THERE*, Al 

1130 IF AM** THE* 1020 

1440 IF ICFI«<AI,1>0*V MEM 1010 

1030 OPEH 11,0. PRO. 9A1 

1040 REAO Hl a Vl,V2,V'J a U4,VS,V4 a 9? a VI,M9 

1070 CLOIE NT 

1010 QOIUI 120 

lOfO PRINT -PU1 0L0EI1 l/l OIIC ON 10" 

1100 1RPUI 'II II IRENE', Al 

1110 IF 41*-" INEN 1100 

1120 IF IEFTHAI.UO-T- THEN 1040 

1130 OPEN I1.0.0LH1B1.1AT 

1140 ICRR1CH HI 

)130 UNITE HI,01 

1140 CLOIE II 

1l70 OP>FH Nl,l.RlMI7FR.|Ml 

ITIO OPEH 02,V.0LnA31ER. Al 

llfO ICRATCM 12 

1200 IEAI 11,01,02,01,03 

1210 IF EDFH)«1 1HEH 1*70 

1220 IF 0K-V4 INCH P«P«R2»02«Oi0010 1230 

1230 IF 01>V4 1HER IF 0K-V7 [HER P-P*02iO2-0*QOTO 1230 

1240 IF 01>VI 1HER 02'03-P 

1230 HOME 12,11,02,11,13 

1240 1010 1200 

1270 CLOSE HI, 12 

1210 OOIUI 120 

T2f0 IF POI 1NEM Pftlfll -ftOfH FOR TEAR • I*; 

1300 IF P<0 INCH PRIRT 'LOII FOR VEAl • «-; 

13(0 4-AIKP) 

ti2o iofoi loo 

1140 PRINT 41 

1330 PR1N1 iPtlMT 

1133 REN 

1393 EHI OF PERIOI < EMO OF TERR 

1337 IER 

1340 PRIM! -10 VOV UAM1 I APE lACHUP* 

1370 IMP01 -rOI l/l-.AI 

1300 IF AM" IHEN 1340 

llfO IF L(FTIIAI,U« B N' INEN 1310 

1400 IF LEfTllAI,)X>-T # IHEN 1340 

1410 IF H«0 1KEN OPEN II ,),0LN1I1.IAI 

1413 IF V-1 INCH OPEN HI, I. LAAI1ER.DAT 

1420 REAl II, A 

1410 POKCl 113,34) 

1440 POKE< 104,72) 



1430 A-UIEN1X) 

1440 CLOIE II 

1443 COSUl 120 

1470 IF AOO 1MEH IF AOI THEN PRINT "UN"; 

1410 PRINT -IUCCEIIFH1 IACKUP OF FILE "iVt| 

1490 IF AOO 1MER IF AOI THE* 1390 

1300 IHPUT -PHEII RETURN. ".Al 

1310 OOIUI 120 

1313 IF y-0 7HEH R-HO0I0 1410 

1320 IF P-2 1HER 1400 

1330 POINT -TOUR LA1EI1 0/L II ON NO" 

1340 POINI -I REEI 31I1EA USE ON NO* 

1330 IRP01 '10 II IMEIE'.AI 

1340 IF AM— IHER 1330 

1370 IF lCFII1AI,UO-T- IHEH 1340 

1310 CHAIR 0.CHR8 

13fO INPUT MNT AGAIN', Al 

1313 IF AM" THE" 1390 

1393 IF ItFIHAI.IMM" INEN 1410 

1397 0010 1300 

1400 OPEN ll,1.lLHltT.DAl 

1410 SCRATCH |! 

1420 A«0 

1430 WRITE 11. A 

(140 CLOIE HI 

I ISO 101 U I 120 

1140 PRINT *TOUR LATEI1 0/L IS OH HI* 

1170 PNIR1 -| NEEI ITI1EH IIIC OH 10" 

1410 IRPUl Ml IT THENE-,AI 

1190 IF AM" THEN 1410 

1700 If lEFT4(AI,1K) # f TNEN 1470 

1710 CHAIN O.NENU 

(193 REN 

1993 REN TRIAL IALAMCE 

1997 REH 

20O0 IORUI 120 

2010 MPUI *M VOU UANT HIITORV 10 PR|Hl fl ,AI 

2020 IF M» M INEN 2010 

2030 IF ICF1I(4I,IM-V- INEN H-2tOOTO 2040 

2040 IF LEFTHAI,l)O a N- IHEN 2010 

2030 H>l 

2040 OPEH 01J.OLRAITEH.IA1 

2170 IF H>2 1MCP OPEH l2J.aLNlH.lAT 

21 IOIUI 120 

2090 OPEH I3,0.PRA.IA1 

2100 REAR I3,V1,V2.V3 J V4,V3,V4,V7,VI,V9 

2)10 CLOIE 01 

2120 0MI1RMV1) 

2130 IF VK 100000 INEN AMLEFTim.lMV«Hllim,2.2) 

2140 IF VOflfff IHEH AI>lEFTt(Vl l 2M*/*«Nlll(VI ( 3 ( 2) 

2130 VMAMV«RlRHTm» a 2) 

2T40 PR1HT -TRIAL IALARCE";IAH20>;VI 

2170 PR1H1 

2110 REAl 11,11,02,01 

2190 IF EOFtlMI 1MEH 3400 

21 f I IF 02*0 THEN 2110 

2200 IF IK-V4 IHEH MI*l2tQ010 2100 

2210 IF 01>V4 IHEH IF GK-U7 IHEN 3-1*0210010 2110 

2220 IF 6K-Y* IHER MMIJtOOlO 22S0 

2230 IF Fl-0 THER OOIUI 2400 

2240 F1-TIC-C»02 

2130 AMIKI2I 

2240 OOIUI 300 

2270 Rtitfi n;oir "; 

2210 IF B2M0 IHEN IF P0I>22-LEH(AI) THEN PRINT 

2290 PRIRT TAK22-LEH4AD); 

2100 TF I2<0 IHER PRINT lAl(32*UN<AI)), 

2110 PR1R1 Al 

2110 IF m-i THEN 2100 

2J40 IF EOMJl-l INEN 2U0 

2330 IF II>01 TM€N PHIRIiOOlO 2110 

3340 IF BMO* IHER AORill 400 

2370 HEA9 N2,I1, 12. 13,04 

J 110 OOTO 2340 

2400 PR INI -SURPLUS-; 

2410 AMIK11 

2420 wUavl 100 

2430 PR1H1 1AI<2?'LEN<AM>; 

2440 IF 1<4 IHEH PRINT IAMP03H0); 

J430 PRIHI Al 

?440 PftlRI IPRIRT -AIIETS-; 

2470 A*AI3(I) 

:>H0 OOIUI 300 

2410 PRIM TAHT3-lEN<At>)i 

^300 IF KO IHEN PRINT 1«|(P0S«10); 

2310 PRINT Al 

2320 PRINT 

2340 RETURN 

2400 A-AIKI] 

2110 OOIUI 100 

2420 PRIN1 IA0(IS-LEN(AIM;AI; 

2430 A-AlStC-11 

2440 OOIUI 300 

2430 PR I HT 1A|(23^LEN<AIM;AI 

2AI0 PRINT rPRIHI 

2470 CLOIE HI 

2490 IF H«2 TNEH CLOIE 02 

24f0 INPUT -PRESI RETURH. «.AI 

2700 chain o.nehu To be oontfnuod 
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DUMPFILE and DUMPCMDS, Two User Command 
Routines for Mini-Flex 

by 

Robert L. Pigford 

3 00 Wilson Road 
Newark, Del., 1D711 



INTRODUCTION : 

Although the authors of the Mini-Flex operating system at 
Technical Systems Consultants provided many very useful command 
subroutines for management of files stored on floppy disks they 
did not include routines for listing the contents of binary 
files. Sometimes the user wants to determine what the contents of 
such files may be without moving them into the memory locations 
from which they will operate. This can be done easily and 
quickly with either of the two command routines listed below. 

Either routine is called from the user terminal by typing 
DUMPFILE, FILE SPEC or DUMPCMDS, FILE SPEC. Although the default 
extension is .BIN, binary files having extensions such as .CMD or 
.SYS can of course be processed by including the appropriate 
extension in the file specification. Both programs operate from 
the short memory block in DOS used by other short command 
routines. Each program can be used for output on either terminal 
or printer. 

DUMPFILE , FOR OUTPUT OF BINARY AND ASCII DATA : 

This program displays the data bytes in the file both in 
hexadecimal and alphanumeric form in lines of sixteen bytes on 
the terminal. The address of the byte at the first of each line 
is printed first, followed by the hex data. Then the ASCII 
equivalent of each of the sixteen bytes is displayed in a second 
line, if it exists. Otherwise a period is displayed. 

The program itself is shown in Listing 1. It is similar to 

LOCATE(l), which used portions of T.S.C.'s DCS program for 

opening a file on disk, reading single bytes from it, and 
checking for disk errors. 

The heart of the program is the subroutine called LOADER. 
It reads bytes from the disk, computes their addresses, and 
outputs them to the terminal. Some lines do not extend the full 
length if the program comes to the end of a data block on the 
disk first. Thus, one may see at a glance in the output whether 
the data come from one block or the next. At the end of the 
program the starting address of the program is displayed and the 
program returns to the disk operating system. 

After finding from the disk the beginning address of a data 
block and the number of bytes in that block, LOADER outputs the 
beginning address and reads into a buffer either sixteen bytes or 
the number left in the block if that is smaller. Next the buffer 
contents are displayed and, afterward, the same contents are 
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^iven in ASCII forn;. At several points in the program control 
returns to the beginning of LOADER if a new block nec.'S to be 
read from disk. 



DUKPCISDS § FOR OUTPUT OF DATA IN STANDARD COMMA? :D FORMAT : 

The program is shown in Listing 2 and is sirilar to the 
previous program. The logic of its LOADER subroutine is 
different, however, because each op-code read from the rfisk :^ust 
be classified to determine whether it represents a single-byte 
command or one of two or three bytes. This is accomplished by 
the program segment callec INSTYP which was published by 
N.J.Thompson (2) . The number of bytes in each comn\and is stored in 
SAVEB, which is referred to several times to determine whether a 
command has been finished or not. Another counter, 3Cr:TR, stores 
the number of bytes left in each block of data on the disk. 
Whenever it becomes zero, even in the middle of a command, the 
program returns to read a new block on the disk but the returns 
are marked by setting either of two flags, FLAG1 or FLAG2. These 
are tested to determine whether a new data byte just read from 
the disk is either the second or the third by^e of an incomplete 
command. The program returns to th*» appropriate point to finish 
output of the whole command. 

Here is a sample of the outputs 



7R0C 


*6 


00 




7f>0E 


BC 


71 


IE 


7511 


BD 


75 


SA 


7514 


25 


07 




7616 


7C 


70 


B3 


7619 


ZD 


0D 




761B 


20 


EF 




76 ID 


F6 


70 


B3 



CONCLUSIONS : 

I hope you will find these programs useful, as I have. They 
can be put to use easily either by assembly on your own computer 
or by introducing the machine language from Listing 1 or Listing 
2 into your equipment. Anyone who wants a copy on disk should 
send his own disk to me plus fifty cents for return postage. 

REFERENCES : 

1.) Pigford, R.L., "LOCATE, a Utility Command Program for 
Flex", •68' Micro Journal, March-April, 1979, p. 26 

2.) Thompson, N.J., Byte, Oct., 1976, p. 99 

1 NAM DUMP FILE 

2 

<> ********************************** 

4 * DUMPFILE IS A UTILITY COMMAND * 

5 * PROGRAM FOR FLEX. IT DISPLAYS * 

6 * ON THE TERMINAL OR THE PRINTER * 

7 * THE CONTENTS OF A BINARY FILE * 

8 * IN HEX AND IN ASCII. VERSION 2 * 

9 * 7-1-79, BY R.L. PIGFORD * 
if* ********************************* * 

11 

16 
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* SYST 


z:: EC 


|UA 


TES 




13 










* 










14 


7118 








PS7RKG 


EQU 




57118 


CF/LF ft print string in Flex-1 


15 


711E 








PCRLF 


EQC 




S711E 


Cfl/LK 


16 


7139 








OUTtlEM 


EQU 




$7139 


output hex byte 


17 


758A 








OPHNFI 


EQU 




575TA 


get file spec, end open for read 


1C 


7525 








FMS 1 


EQU 




?7525 


iead data from disk and check 


19 


71ED 








ERROR 


EQU 




$71BD 




20 


7103 








WARMS 


EQU 




$7103 


return to Flex-1 


21 


7112 








PU7CIIP 


EQU 




$7112 


output character in Flex-1 


22 


70B3 








SCRATCH 


EQU 




570B3 




23 
24 


709F 








ta::-dp 

* 


EQU 




$709F 


transfer address 


25 
26 


7600 








• 


ORG 




$7600 


assemble in user command space 


27 


7600 


20 


CO 




START 


BPA 




INITl 




28 


7602 


02 






VK 


fch 




2 


version 2 


29 


7603 








CHAR 


RUE 




1 


store hex byte for output 


30 


7604 








SAVEB 


rt:b 




1 


no* bytes left in block 


31 


7605 








CKTP. 


RttB 




1 


no. bytes in one line output 


32 


7606 








CNTRl 


RME 




1 


similar for character output 


33 


7607 








XSAVE 


RMB 




2 


address counter 


34 


7609 








BUFADP. 


RME 




2 


buffer address counter 


35 


760B 


ED 


71 


IE 


INIT1 


JSS 




PCRLF 


CF/LF 


36 


760E 


36 


00 




INIT 


LDA 


A 


80 




37 


7610 


BD 


75 


8A 




JSR 




OPENFI 


get file spec.i open for read 


38 


7613 


25 


07 






BCS 




RETURN 


return to Flex if through 


39 


7615 


7C 


70 


B3 




INC 




SCRATCH 




40 


761E 


8D 


0D 






3SR 




LOADER 


go to read file and output 


41 


761A 


20 


F2 






BRA 




INIT 




42 


761C 


F6 


70 


B3 


RETURN 


LDA 


B 


SCRATCH 




43 


761F 


27 


03 






BEQ 




JUMP 




44 


7621 


7E 


71 


03 




JMP 




WARMS 


return to Flex 


45 
46 
47 


7624 


72 


71 


BD 


JUMP 

* 


JMP 




ERROR 




7627 


BD 


75 


25 


loader 


JSR 




FKS1 


get data byte from file 


48 


762A 


P.l 


02 






CMP 


A 


#2 


start of new record? 


49 


762C 


27 


IE 






BEQ 




LDR2 


branch if yes 


50 


762E 


21 


16 






CMP 


A 


#$16 


transfer addr« follows? 


51 


7630 


26 


F5 






BNE 




LOADER 


return for another byte if no 


52 


7632 


BD 


75 


25 




JSR 




FMS1 


get program entry addr. 


53 


7635 


B7 


70 


9F 




STA 


A 


TADDR 


store it 


54 


7638 


BD 


75 


25 




JSR 




FMS1 




55 


763B 


B7 


70 


A0 




STA 


A 


TADDR+1 




56 


763E 


CE 


77 


22 




LDX 




SMSG3 


get start-addr. message 


57 


7641 


BD 


71 


18 




JSR 




PSTRMG 


output it 


58 


7644 


CE 


70 


9F 




LDX 




4 TADDR 


output address for 


59 


7647 


BD 


77 


12 




JSR 




OUT4HS 


program entry 


60 


764A 


20 


DB 






BR 




LOADER 


return 


61 


764C 


BD 


75 


25 


LDR2 


JSR 




FMS1 


get addr. of data record from 


62 


764F 


B7 


76 


07 




STA 


A 


XSAVE 


file] save in XSAVF 


63 


7652 


BD 


75 


25 




JSR 




FMS1 




64 


7655 


B7 


76 


0B 




STA 


A 


XSAVE+ 1 




65 


7658 


BD 


75 


25 


LDR5 


JSR 




FMS1 


get no. bytes in record block 


66 


765B 


16 








TAB 






save in B-register 


67 


765C 


B7 


76 


04 




STA 


A 


SAVEB 


save also in SAVEB 


68 


765F 


27 


C6 






BEQ 




LOADER 


return if record is blank 


69 


7661 


BD 


71 


IE 


LDR8 


JSP 




PCRLF 


CR?LF 


70 


7664 


CE 


76 


07 




LDX 




1 XSAVE 


point to addr. counter 


71 


7667 


BD 


77 


12 




JSR 




OUT4HS 


output address 
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72 


766A 


BD 


77 


1C 




JSP 




OUTS 


plus two extra spaces 


73 


766D 


BD 


77 


1C 




JSR 




OUTS 




74 


7670 


CC 


77 


2E 




LDX 




#BUFTOP 


Initialize buffer pointer 


75 


7673 


FF 


76 


C9 




STX 




EUFArP 




76 


7676 


CI 


10 






CMP 


B 


#16 


compare no. bytes In block 


77 


767S 


23 


07 






BLS 




LEQ 


with l6t branch If too few 


78 


76 7A 


S6 


10 






LDA 


A 


116 


to fill buffer 


79 


767C 


B7 


76 


05 




STA 


A 


CKTR 


initialize line cntr. - 16 


CO 


767F 


20 


03 






ERA 




LDR3 




81 


7681 


F7 


76 


05 


LSQ 


STA 


B 


CKTR 


initialize cntr. = no, bytes left 


82 


763 •; 


BD 


75 


25 


LDR3 


JSR 




FMSl 


get data byte from file 


83 


7687 


FE 


76 


09 




LDX 




BUFADR 




84 


768A 


A7 


00 






STA 


A 


0,X 


store it in buffer 


85 


768C 


08 








INX 








86 


76oD 


FF 


76 


09 




STX 




3UFACR 


save buffer pointer 


87 


7690 


7A 


76 


05 




DEC 




CNTR 


reduce line counter 


88 


7693 


27 


05 






BEQ 




LDP.6 


buffer filled? 


89 


7695 


5A 








EEC 


B 




no; return for new byte 


90 


7696 


26 


EC 






BNE 




LDK3 




91 


769 8 


20 


8D 






BRA 




LOADER 


return for another block 


92 


769A 


37 






LDR6 


PSK 


B 




save B-reg. on stack 


93 


769B 


F6 


76 


04 




LDA 


B 


SAV2B 


get no. bytes left in block 


94 


769E 


CI 


10 






CMP 


B 


816 




95 


76A0 


23 


0A 






BLS 




LEC1 




96 


76A2 


86 


10 






LPA 


A 


uc 




97 


76A4 


B7 


76 


05 




STA 


A 


CMTR 


initialize both line counters B lfc 


98 


76A7 


B7 


76 


06 




STA 


A 


CNTR1 




99 


76AA 


20 


06 






BRA 




GT 




100 


7 6 AC 


F7 


76 


05 


LEQl 


STA 


B 


CNTR 


initialize both counters = 


101 


76AF 


F7 


76 


06 




STA 


B 


CN7P.1 


no. bytes left in block 


102 


76B2 


CE 


77 


2E 


GT 


LDX 




ifBUFTOP 


point to beginning of buffer 


10 3 


76B5 


FF 


76 


09 




STX 




BUFADR 




104 


76B8 


B6 


76 


04 




LDA 


A 


SAVEB 


subtract no. bytes in full 


105 


76BB 


80 


10 






SUE 


A 


#16 


line from no. left in block 


106 


76BD 


B7 


76 


04 




STA 


A 


SAVEB 


save the result 


107 


76C0 


FE 


76 


09 


LDR9 


LDX 




BUFADR 


get byte fiom buffer 


10 8 


76C3 


A6 


00 






LDA 


A 


0,X 




109 


76C5 


08 








INX 






increment buffer address 


110 


76C6 


FF 


76 


09 




STX 




BUFADR 


save it 


111 


76C9 


B7 


76 


03 




STA 


A 


CHAR 


store character for now 


112 


76CC 


CE 


76 


03 




LDX 




SCHAR 


point to character 


113 


76CF 


8D 


45 






BSR 




OUT2HS 


output it ♦ space 


114 


76D1 


FE 


76 


07 




LDX 




XSAVE 


inclement addr. counter 


115 


76D4 


08 








INX 








116 


76D5 


FF 


76 


07 




STX 




XSAVE 


save it 


117 


76D8 


7A 


76 


05 




DEC 




CKTR 


decrement line counter 


118 


76DB 


26 


E3 






BNE 




LDR9 


return if more in line 


119 


76DD 


CE 


77 


2E 




LDX 




SBUFTOP 


point to buffer beginning 


120 


76E0 


FF 


76 


09 




STX 




BUFADR 




121 


76E3 


BD 


71 


IE 




JSR 




PCRLF 


CR/LF 


122 


76E6 


C6 


08 






LDA 


B 


#3 




123 


76E8 


8D 


32 




Al 


BSR 




OUTS 


output 8 spaces 


124 


76EA 


5A 








DEC 


B 






125 


76EB 


26 


FB 






BEE 




Al 




126 


76ED 


A6 


00 




A2 


LDA 


A 


0,X 


get a character from buffer 


127 


76EF 


81 


5A 






CMP 


A 


f?5A 


is it above 'Z? 


128 


76F1 


22 


06 






BHI 




A3 




129 


76F3 


81 


IF 






CMP 


A 


#S1F 


is it below SP? 


130 


76F5 


23 


02 






BLS 




A3 




131 


76F7 


20 


02 






BRA 




A4 




18 
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132 


76F9 


86 


2E 




A3 


LDA A 


#?2E 


substitute period, * . 


133 


76FB 


BD 


71 


12 


A4 


JSR 


PUTCI1R 


output char. In ASCII 


134 


7GFE 


OS 








INX 




Increment buffer addr. 


135 


76FF 


UD 


IS 






BSR 


OUTS 


print two extra spaces 


136 


7701 


8D 


19 






BSR 


OUTS 




137 


7703 


7A 


76 


06 




DEC 


CNTRl 


reduce line counter 


13C 


7706 


26 


E5 






BSE 


A2 


return If more In buffer 


139 


7708 


33 








PUL B 




retrieve no, bytes left in 


140 


7709 


5A 








DEC B 




block | decrement it and 


141 


770A 


26 


03 






BKE 


LDR 10 


test if none left 


142 


770C 


7E 


76 


27 




JMP 


LOADER 


return to LOADER if none 


14 3 


770F 


7E 


76 


61 


LDR 10 


JM? 


LDR 8 


return for new output line 


144 










* 








145 


7712 


BD 


71 


39 


OU'MHS 


jsn 


OUTHEX 


start he ib to output ^ hex 


146 


7715 


OR 








INX 




and SP 


147 


771G 


BD 


71 


39 


OUT2HS 


JSP 


OUTHEX 


start here to output 2 hex 


14S 


7719 


8D 


01 






Bsr 


OUTS 


and S? 


149 


771B 


39 








RTS 






150 










* 








151 


771C 


86 


20 




OUTS 


LDA A 


#C20 


output space 


152 


771E 


BD 


71 


12 




JSR 


PUTCHR 




153 


7721 


39 








RTS 






154 










* 








155 


7722 


OA 


0D 




xsr,3 


FDE 


$0A0D 




156 


7724 


53 








FCC 


/START 


AT / 


157 


772D 


04 








FCB 


4 




158 


772E 








BUFTOP 


RMB 


16 


buffer storage for one line 


159 












END 


START 




NO ERROR (S) 


DETECTED 










1 










* 


NAM 


DUMPCMDS 


2 

3 










ft******************************** 


4 










*dumpcx: 


DS IS A 


UTILITY 


COMMAND * 


5 










* PROGRAM FOR 


FLEX. IT DISPLAYS* 


6 










* OK YKE TCFKr 


KAL OP PRINTER * 


7 










* THE CONTENTS 


OF A BINARY FILE * 


3 










* IN STANDARD 


COMMAND 


FORMAT * 


9 










* WITHOUT LOADING THE 


FILE INTO * 


10 










* RAM. 


VERSION 1, 5-15-79 * 


11 










* BY Rp 


L. PIGFORD 


• 


12 










A******************************** 


13 










• 








14 










* SYSTSK EQU A 


TES 




15 










* 








16 


7118 








PSTRNG 


EQU 


$7118 


CR/LF & print string in Flex-1 


17 


711E 








PCRLF 


EQU 


S711E 


CR/LF only 


18 


7139 








OUTHEX 


EQU 


$7139 


output hex byte 


19 


7112 








PUTCHR 


EQU 


$7112 


output character 


20 


758A 








OPENFI 


EQU 


$758A 


get file spec, and open for read 


21 


7525 








FMS 1 


EQU 


$7525 


read data from file and check 


22 


71BD 








ERROR 


EQU 


$71BD 




23 


7103 








WARMS 


EQU 


$7103 


return to Flex-1 


24 


70B3 








SCRATCH 


EQU 


$70B3 




25 
26 
27 


709F 








TADDR 

* 


EQU 


5709F 


transfer address 










* 








28 


7600 










ORG 


$7600 


assemble in DOS user command space 


29 


7600 


20 


0A 




START 


BRA 


INIT 




30 


7602 


01 






VN 


FCB 


1 


version 
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31 


7603 








save:* 


FMB 




2 


32 


7605 








BCKTP 


RMD 






33 


760C 








SAVED 


Xtt!E 






34 


7G07 








FLAG 1 


rkb 






35 


7602 








FLAG 2 


RK3 






36 


7609 








BYTE1 


RMB 






37 


760A 








BYTE 2 


RMB 






33 


760B 








BYTE 3 


r>:b 






39 










* 








40 


7C0C 


36 


00 




INIT 


LDA 


A 


*0 


41 


760U 


BD 


71 


1C 




JSIl 




PCRLF 


42 


7611 


1SU 


75 


8 A 




JSR 




OP EN F I 


43 


7C14 


25 


07 






BCS 




RETURN 


44 


7616 


7C 


70 


B3 




I IX 




SCRATCH 


45 


7619 


3D 


OD 






BSR 




LOAD 2 


46 


7C1B 


20 


ur 






DFA 




INIT 


47 


76 ID 


F6 


70 


B3 


RETURN 


LDA 


B 


SCRATCH 


48 


7620 


27 


03 






BEQ 




JUMP 


49 


7622 


7E 


71 


03 




JKP 




WARMS 


50 


7625 


7E 


71 


3D 


JUMP 


JKP 




ERROR 


51 










* 








52 










* 








53 


76 23 


7r 


76 


07 


LOAD 2 


CLR 




FLAG1 


54 


7o2B 


7F 


76 


08 




CLR 




FLAG 2 


55 


762E 


BD 


75 


25 


LCADEP 


JSP 




FMS 1 


50 


7631 


31 


02 






CMP 


A 


52 


57 


7633 


27 


IE 






BHC 




LDR2 


53 


7635 


81 


1C 






CMP 




s:ig 


59 


7637 


26 


1'5 






BHE 




LOADER 


60 


7639 


BD 


75 


25 




JSK 




FMS 1 


61 


763C 


B7 


70 


9F 




STA 


A 


T/iDDR 


62 


763r 


BD 


75 


25 




JSR 




FMS 1 


63 


7642 


B7 


70 


AO 




STA 


A 


TADDR+1 


64 


7645 


CE 


77 


23 




LDX 




IMSG3 


65 


7648 


BD 


71 


18 




JSR 




PSTRNG 


66 


7640 


CE 


70 


9F 




LDX 




fcTADDR 


67 


76 4E 


BD 


77 


01 




JSR 




OUT4HS 


65 


7651 


20 


DE 




LOAD1 


BRA 




LOADER 


63 


7653 


BD 


75 


25 


LDR2 


JSR 




FMS1 


70 


7656 


B7 


76 


03 




STA 


A 


SAVEX 


71 


7659 


BD 


75 


25 




JSR 




FMS1 


72 


765C 


B7 


76 


04 




STA 


A 


SAVEX+1 


73 


765F 


BD 


75 


25 


LDR5 


JSP 




FMS 1 


74 


7662 


B7 


76 


05 




STA 


A 


BCNTR 


75 


7665 


27 


C7 






DEC 




LOADER 


76 


7667 


BD 


75 


25 


EPSILON 


JSP 




FMS1 


77 


766A 


7A 


76 


05 




DEC 




BCNTR 


78 


766D 


7D 


76 


07 




TST 




FLAG1 


79 


7670 


26 


53 






BHB 




GAMMA 1 


80 


7672 


7D 


76 


08 




TST 




FT,AG2 


81 


7675 


26 


72 






DNE 




DELTA1 


82 


7677 


B7 


76 


09 




STA 


A 


BYTE1 


83 


767A 


SF 








CLR 


B 




84 


767B 


CE 


76 


03 




LDX 




8 SAVEX 


85 


767E 


BD 


77 


01 




JSR 




OUT4HS 


86 


7681 


BD 


77 


15 




JSR 




OUTS 


87 


7684 


CE 


76 


09 




LDX 




tfBYTEl 


88 


7687 


8D 


7C 






BSR 




OUT2HS 


89 


7689 


BD 


77 


IB 




JSR 




ItJCSAV 


90 


768C 


B6 


76 


09 




LDA 


A 


BYTEl 



command addr. counter 
no, of bytes counter 
no of bytes in command 
indicates incomplete 2-byte cmd< 
indicates incomplete 3-byte cud, 
op-code of command 
first operand byte 
second operand byte 



CR/LF 
OPENFI fi et ^ ile spec; open for read 

go to routine to read file and 
output commands 

return to Flex-i 



clear flags to begin command 

get byte from file 

is it new-record indicator? 

is it trans . -addr. indicator? 
return for another byte 
get program entry address 
store it 



point to begin-addr. message 

print it 

point to transfer address 

print it 

return for another byte and 

get 2-byte begin addr. 

from file 



get no. bytes in record block 
store for future use 

return if block is blank 
get data byte from file and 

decrement counter 
test for incomplete 2-byte cud. 
return to 2-byte output 
test for incomplete 3-byte cud, 
return to 3-byte output 
store byte as op-code 
clear no* bytes in command 
point to addr. counter 
output addr. of end. & ST 

plus a second space 
point to op-code 
output it ♦ space 
increment crod. addr. counter 
get op-code again 
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91 


76CF 


81 


sc 




INSTYP 


CMP 


A 


#S3C 


test it for If 2, or 3 bytes 




92 


7691 


27 


IS 






BEQ 




THBEEB 


In the command 




93 


7693 


81 


3E 






CMP 


A 


f y 8S 






94 


7635 


27 


14 






BEQ 




TIIREEB 






95 


7697 


81 


CE 






CMP 




*$CE 






96 


7099 


27 


10 






BEC 




THFEEB 






97 


769D 


84 


F0 






AND 


A 


*$F0 






98 


769D 


61 


20 






CMP 


A 


*$20 






99 


769F 


27 


OB 






BEQ 




7W0B 






100 


76A1 


81 


60 






CMP 


A 


S$60 






101 


7 6 A3 


25 


08 






ECS 




ONES 






102 


76A5 


84 


30 






AND 


A 


#$30 






103 


76A7 


81 


30 






CMP 


A 


#?30 






104 


76A9 


26 


01 






BKE 




TV70B 






105 


76AB 


5C 






THREES 


INC 


B 




B-r«g. will contain no. bytes 




106 


76AC 


5C 






TWCE 


IKC 


B 




in the command 




107 


76AD 


F7 


76 


06 


ONEB 


STA 


B 


SAVEB 


store no. cmd. bytes in SAVFB 




10 a 


76D0 


26 


09 






BME 




mi; 


branch if 1- or 2 -byte cmd. 




109 


76U2 


BD 


71 


IE 


EHD1 


JSR 




PCRLF 






110 


76B5 


bD 


54 






ESR 




TESTB 


test no. bytes left in record 




111 


76E7 


25 


93 






BCS 




LOADl 


branch if all gone 




112 


76B9 


20 


AC 






BRA 




EPSILON get new data from disfc 




113 


7C13B 


8D 


4E 




MU 


ESR 




TESTB 


test no. bytes left in block 




114 


76BD 


24 


OB 






BCC 




GAMMA 


branch if bytes are left 




115 


76BF 


7C 


76 


07 




INC 




FLAG1 


set flag to show incomplete 




116 


76C2 


7E 


76 


2E 




JMP 




LOADER 


2 -byte ciod.i ^et data from 




117 


76C5 


7F 


76 


07 


GAMMA 1 


CLR 




FLAGl 


next block | clear flag upon 




US 


76CC 


20 


03 






BPA 




GAMMA 2 


return 




119 


76CA 


BD 


75 


25 


GAMMA 


JSP 




FMSl 


get new byte from file 




120 


76CD 


B7 


76 


OA 


GAMMA 2 


STA 


A 


BYTE 2 


store it as first operand byte 




121 


76D0 


7A 


76 


05 




DEC 




BCNTR 


reduce bytes counter 




122 


76D3 


CE 


76 


OA 




LDX 




# BYTE 2 


point to first operand 




123 


76D6 


8D 


2D 






BSR 




OUT2HS 


output it 




124 


76D8 


8D 


41 






BSR 




INCSAV 


increment addr. counter 




125 


76DA 


7A 


76 


06 




DEC 




SAVEB 


reduce no. bytes in command 




126 


76DD 


27 


D3 






BEQ 




END1 


return if command complete 




127 


76DF 


8D 


2A 






BSF 




TESTB 


test for bytes left in block 




128 


76E1 


24 


OB 






BCC 




DELTA 


branch if some are left 




129 


76E3 


7C 


76 


or 




INC 




FLAC2 


set flag to show need byte 3 




130 


76E6 


7E 


76 


2E 




JMP 




LOADER 


return for a new record block 




131 


76E9 


7F 


76 


08 


DELTA1 


CLR 




FLAG 2 


clear flag upon return 




132 


76EC 


20 


03 






BRA 




DELTA2 






133 


76 EE 


BD 


75 


25 


DELTA 


JSR 




FMSl 


get second operand byte 




134 


76F1 


B7 


76 


OB 


DELTA 2 


STA 


A 


BYTE 3 


store it 




135 


76F4 


7A 


76 


05 




DEC 




BCNTR 


reduce bytes counter 




136 


76F7 


CE 


76 


OB 




LDX 




*BYTE3 


point to second operand 




137 


76FA 


8D 


09 






BSR 




OUT 2 US 


output it 




138 


76FC 


80 


ID 






BSR 




INCSAV 


increment addr. counter 




139 


76FE 


7E 


76 


B2 




JMP 




END1 


return f command finished 




140 










* 












141 


7701 


BD 


71 


39 


OUT4HS 


JSR 




OUTHEX 


output 2 hex bytes 




142 


7704 


08 








INX 










143 


7705 


BD 


71 


39 


OUT2HS 


JSR 




OUTHEX 


output 1 hex byte 




144 


7708 


8D 


OB 






BSR 




OUTS 


output space 




145 


770A 


39 








RTS 










146 










* 












147 


770B 


7D 


76 


05 


TESTB 


TST 




BCNTR 


test no. bytes left in block 




148 


770E 


27 


03 






BEQ 




SETC 






149 


7710 


OC 








CLC 






clear carry if bytes are left 




150 


7711 


20 


01 






BRA 




RETN 
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7\ 



151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
1G3 
164 
165 
166 



7713 0D 

7714 39 

7715 86 20 
7717 BD 71 12 
771A 39 

771B FE 70 03 

771E OC 

771F FF 76 03 

7722 39 

7723 53 
7736 04 



SETC 
RETN 

OUTS 



SEC 
RTS 

LDA A ST 20 
JSR PUTCHr 

RTS 



INCSAV LDX 
INX 

STX 
RTS 

MSG3 FCC 

FCB 

e:td 



SAVnx 

SAVEX 



set carry If all bytes used 
output a space 

increment address counter 

store it 
return 



/STARTING ADDRESS = / 
4 

START 



NO ERROR (S) DETECTED 



The following programs enable data files and BASIC programs to 
be transferred from a PDP-11 to an SKTPc 6609. P0P-11 BASIC Is so 
sl»11ar to SMTPc BASIC that very little effort Is required to run 
the POP-11 programs on the 6809. 

Trie programs supplied on this disk have port addresses set for 
the S/09 computer. An RS-232 serial Interface from the P0P-11 is 
plugged Into the S/09 port 0A. {The VOU control terminal should 
be In port 08 as usual). The line between tha POP-11 and the 6809 
should be configured as follows: 

PIN 2 to PIN 3 
PIN 3 to PIN 2 
PIN 7 to PIN 7 

TG6B09.6AS Thfs program 1s for the POP-11 and should be 

started first. It informs the operator wher» the 
6809 program Is to be started. It Is essential 
that the PDP-11 operates in SIMPLEX mode (no 
echo) on the Interface line. 

FROWOP.BAS This 1s an XBAS1C program for th€ 6B09. It 
receives the file transmitted from Xtie PDP-11. 

FROMPOP.BAC "Compiled" version of above program. 



OPENPDP.CMO 



CtOSEPDP.CMD 



Used by the program FROMPDP to switch the echo 
off and to direct XBASIC to port OA. Source code 
supplied In case port modifications are required. 



Used by the program FROMPDP to switch the echo 
back on and to direct XBASIC back to port OB. 
Soiree code supplied Irf case port modifications 
are required. 

1 REM PDP-11 PROGRAM TO TRANSMIT FILES TO SWTPc 6609 

2 REM 

3 REM 

ID KS*"G0" 

30 PR TNT "PDP-11 FILENAME"; 

40 INPUT JO.FS 

50 IF FS-"" THEN STOP 

70 OPEN FS FOR INPUT AS FILE 1 

60 L*0: N-0 

85 OPEN "KB1:" AS FILE 2* 

30 PRINT "START 6809 PROGRAM WOW" 

95 ON ERROR GOTO 900 

100 1NPUTL1NE #21. AS: AS*LEFTf AS ,2) 

10S IF AS-MS GOTO ISO 

110 1NPUTUNE #21,8$: BS-LEFT(BS,2) 

IIS IF BS-MS GOTO ISO 

120 1NPUTUNE I21.CS: C$*LEFT(C$.2) 

125 IF CS-ttS GOTO ISO 

130 1NPDTLINE #2%, OS: DS«LEFT(DS,2) 

140 PRINT "NO G0":PR1HT "AS-" AS 'BS-" BS "CS-" CS "OS-" DS 

14S STOP 

ISO FOR t-1 TO S0:NEXT 1 

160 1NPUTL1NE #1,LS 

170 PRINT #2I/Z";LS;: PRINT CHRSU3); 

160 L-L+l: N*NHEN(LS)-2 

190 GOTO 100 

200 PRINT #?!,"•**" 



;: RS-INCHS(O): PRINT 



210 PRINT L •LINES 1 ' N "CHARACTERS" 

230 CLOSE 1,21 

2S0 GOTO 30 

9G0 If ERL*160 AND ERR' 11 THEN RESUME 200 

910 ON ERROR GOTO 

920 END 

1 REM PROGRAM TO RECEIVE FILES FROM POP-11 

2 REM 

3 REM 

100 PRINT "NAME Of FILE TO BE CREATED? ";: 1NPUTLINE #0,FS: PRINT 

105 IF FS- H " THEN STOP 

110 ON ERROR GOTO 900 

120 OPEN OLD FS AS 1: REM CHECK IF FILE ALREADY EXISTS 

12S 1NPUTL1NE M,XS 

130 CLOSE 1 

13S IF El*4 THEN 200 

140 PRINT "DELETE EXISTING FILE? 

ISO If RS-"N" THEN 100 

160 IF RS<>"Y - THEN 140 

200 OPEN NEW FS AS 1 

210 PRINT "COMMENCING TRANSFER..." 

220 EXEC/OPENPDP" 

230 LC-O: CC-C 

300 PRINT "GO" 

310 1NPUTL1NE fO.LS 

32S IF LS-"***" THEN 400 

330 TS-M10SUS.2): REM AVOID LOSS OF LEADING SPACES 

3S0 PRINT ll.TS 

360 U-LEN(TS) 

370 LC-tCM 

380 cc-ccm 

390 GOTO 300 

400 EXEC/CLOSEPDP" 

MO CLOSE 1 

420 PRINT LCI" LINES" 

430 PRINT CC;" CHARACTERS" 

4S0 GOTO 100 

900 IF ERL-12S AND (ERR-8 OR ERR-4) THEN EWRR: RESUMT130 

910 EXFC,"CLDSEPDP" 

920 ON ERROR GOTO 



♦ OPEN POP INTERFACE 

* 

REENTER EQU ICD06 

INCH EqU SCD09 

1NCM2 EQU SCOOC 

OUTCH EOU SCDOF 

0UTCH2 EQU SCD12 

CNTRL EQU SEOOO AC I A CONTROL REGISTER 

DATA EQU SE001 AC1A DATA REGISTER 

# LOAD ACIA DRIVER ROUTINES INTO PRINT. SYS SPACE 

ORG SCCCO 

INV RMB 2 
1N2V RMB 2 
OUTV RMB 2 
0UT2V RMB 2 
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ICHAR LOA CMTRL INPUT CHARACTER ROUTINE 
ANDA #$01 

BEQ ICHAR WATT FOR CHARACTER 
LOA DATA LOAD CHARACTER 
ANOA f J7F 
RTS 

OCKAR PSHS #J02 OUTPUT CHARACTER ROUTINE 
OCKARl IDA CNTRL 

ANOA #$02 

BEQ OCHARi WAIT UNTIL AC1A READ* 

PULS #$02 

STA OATA OUTPUT CHARACTER 

RTS 

ORG $C100 

START BRA OPOPl 

VN FCB 1 VERSION NUMBER 

OPOPl LOO INCH+1 
STO 1NV 
LOO #1CHAR 

STO 1NCK+1 RE-ASSIGN INCH 
LOO 1NCH2+1 
STD INZV 
LOO fICHAR 

STO JNCh7*l RE-ASSIGN INCH2 
LOO OUTCK+1 
STO OUTV 
LOO fOCHAR 

STO OUTCH+1 RE-ASSIGN DUTCH 
LOO 0UTCH2+1 
STO 0UT2V 
LDD lOCHAR 

STO 0UTCH2+1 R£-ASSi€N 0UTCH2 
LOA #$13 

STA CNTRL INITIALISE ACIA 
LOA #$U 
STA CNTRl 
JHP REENTER 
END START 



* CLOSE POP INTERFACE 

* 

REENTER EQU $C006 
INCH EQU K009 
IMCH2 EQU $CDOC 
OITCH EQU $C0Of 
0UTCH2 EQU KOI 2 
1NY EQU SCCCO 
1N2V EQU SCCC2 
OUTV EOU $CCC4 
0UT2Y EOJ $CCC6 

ORG $C!D0 

START 9RA CP0P1 

VN FCB 1 VERSION NUMBER 



to Prlnti 



-T to Bxlt)* 



find your aelt trying to tiguro out what ia going on, 

Based on the old saying that a program ia, worth a thousand 
worda t have adapted a sample program froa t-on Poele'a PAYROLL 
WITH COST ACCIH/NTING (Otbomo * AaaocLetoa) ahowing how tho T5 
rendom filoa work. Si nee the documentation falla to Include 
such a aaotplo program/ many other TSC BASIC user a nay find thla 
exomplo helpful* or at least readers expert in TSC random [iloi 
may offer euageationa and altoretiona to vhat is being 
presented, 

10 &2M PR010 

20 OPBtf -1.C30P01O.OAT- AS B 

30 OBT IB, R0OORD 1 

40 GOSUB 620 

SO REM CONVERT 6TRIMCS TO IfTSOER ANO FLOATING POINT 

SO QU»CVT|I|C1II eG2l-CVTM<G2<l 

70 Gl-CVTfP(G5mG«-CVT$F!ri4n 

flO CSI*CVTI%(QSJ1 tC&|-CVr*HG*|J 

90 Xi-C M<Xt! tVl-CVTJtCv*) s«-CVTfia»l 

100 GOSUB 540 

110 AE* DISPLAY HAsK t 

120 PRINT TAB( 10) j'Cenoral Information Pile Molntononce" 

130 PRINT 

140 PRINT "1. Company Nuabor -|TAB <2C) jGIl; 

150 PRINT TAft13O)j a 10. Today's Dete->TARCSO) i*» 

160 PRINT "3. Next Check Number* > TA» (201 |G2i| 

170 PRINT TABlJD)f"T1. Period Start' j TAB C50) }til 

180 PRINT *}. 0. T. Raro"|TAB{20)|GJj 

190 PRINT TAJH30) i"12. Period ending" t TAB 150) jC* 

200 PWNT "4. Hourly Rate" |TA8(20> jH4 > 

210 PRINT TABDOli't). Payroll Munoer^TAB J 50) »G5i 

220 PRINT TAB(30)»"14. Day Number* t TAB (50) ;G6t 

2 30 PXIPT "5, Company Name * jTABUO) ) AS 

240 PRINT '6. Addr*xTABl201>S$ 

250 PRJ«T -7,"|TAB(2Q) jCl 

2f0 PRINT "B.-fTAB(20> ;D* 

270 PRINT m 9. Fed/State NOB.";TAB(20) )EI 

280 PRINT 

290 PRINT "Enter Pield No. to Change 

300 INPUT SLl 

301 IF SLI-0 THEN OPEM 
310 IP SLl— t TNEN 5B0 
320 GOSUB 540tPRIHTtPRINT 
330 GOSUB 620 

340 ON SLl GOTO 350 , 360 , 370 . 380, J90 . 400 . 4 10 , 420 , 4iO , 440.450 , 460 ,4VO, 480 

350 INPUT "Company Number" .X7i :L CT G1 *-CVTi*<X7i ) iCOTO 490 

360 lNPlT "Next Check tfu**>or»,X8l i LSBT C2*"CVTt 9 1X81) jGOTO 490 

370 INPUT "0. T. Rate'.yJiLSST G3*VCVTFI tvJ) ;COTO 490 

3i0 INPUT -hourly Rjt#%Y2tL«ET G4t<CVTPt 1YJ) iGOTfl 490 

190 INPUT "Company Nam*" ,CNl :LSKT Al-CNf J^pOTO 490 

400 INPUT "Addr line I'.AISiLSKT fll-AlliOCTO 490 

410 ItfPUT "Addr line 2^A2SiL8ET C$-A2$iGOTO 490 

420 IHPUT "Addr line 3*,A3$iLSET 1)1 - A3* t GOTO 490 

4 30 INPUT "PKD/Stata Noa . " ,f D*i LSET tl-Pttf* 001*3 490 
440 INPUT Todiiy'a Dane ',OTf iLSKT MUDTIjGOTO 490 
450 INPUT "Period Start" / PSSiLSET N$-PSt iGOTO 490 
460 INPUT "Period End" r PEf iLSKT OJ-PEfcGOTO 490 

470 INPUT "Payroll N».",PMl 86T G5*"CVT»f (PNl) iCOTO 490 

480 INPUT "Day N U 0per*,pNl iLSKT G6*"CVTt S (tW»l | 

490 PRiWTjlNPUT "Addltionol Changes, t K I or I N )",ZX* 

500 IP 1I$-"Y" THEN 100 

510 RKM WRITS TO DISK 

520 Pirr IB, RfiCORD I 

5 30 END 

540 REN ROUTINE TO CLeAR CT-64 CRT 

550 FOR X9t-t TO JtPAINT CKRU261 *NfcXT X9i 

560 PRINT ClIRf C2) tRETUJW 

570 REN EXIT ROUTINE 

580 POR XIi-1 TO 6rPRlNTiNBXT XII 

590 PRINT TABinii" — > 0/3 Fk Loading MZHU*' 

610 OIAIN "MENU.BAS"iEND 

620 REM FIELD AlxOCATI ON5 

6 30FIEL&ia,2ASGl| r 2ASG2*,8ASG3*,8ASr,4*,24ASAl,24ASB»,24ASCi r 24A5Dt ,24ASEf r 9AS>]t 
,9ASN»,9ASO*,2AS05*,2A6G6*,2A6Xf ,2ASY«,2AS2* 

640 RTTURN 

1000 REK ROUTINE TO PRINT GENERAL INFORMATION REPORT 

1001 REN GOTO 100 

1010 REN COL LENGTH - 132 

(Note: Print Routine not inciudod in this aaapia program) 



.PRINT- AS 0:GOTO 100O 



CP0P1 100 IMY 
STO INCH+1 RESET INCH 
LD0 IN2V 

STO INCH2+I RESET INCH2 
LOO OUTV 

STO 0UTCH>i RESET 0UTCH 
L0D 0UT2V 

STO 0UTCH2*! RESET 0UTCH2 
JHP REENTER 
ENO START 



WORKING NI7 I TSC'S RANDON PILES 

By Jim Sqhraler 

(courtaey or interface ArtE) 



H 1ta tho beat thora ia for the 6R0O' ia one way 
recently deacrlbcd tho neat at BASice TSC has been roloaaing 
slnco mid-Bpring of 1979. They are faat, accurate, eaay to use 
and work without a hitch. There la no aocrot to the fact thai; 
TSC 'a forte ia In eoftware. They've u\ada tho 6 BOO uaer tho env 
of Kwiny S-100 bue uaere. Bui. TSC'e documentation la a little 
unuaual. Inatoad of giving the uaor an endleaa liat of doa and 
don'te, TSC tella It like it la and peraunea the reader 
underatanda the theory and ©hop talk. If you havo a Kaatera in 
ngli«l\ Literature with a minor In Computer Science, T&C'a 
documentation will be q btaane. 

That lota «e out. If It isn't proaentod aa a ainpie rule 
with a program to detail the rule, I'm loat. The ruloa and 
aomple programa TSC Preaenta in tho aarunentetion for their 
PJ,i;X2tn BASIC and Extended BASIC are pretty United. II you 
have not had prior experience working with ranriaa (ilea you may 



TRAP 



Lee Johnson 

2745 North view Dr 

Marion, IW 52302 



TRAP la an eaaeatbly level program for toa^lne profrae. 
objact files into ayataai ai«a>ory and returning control to tha 
ummr bafori proer«ai «M«cuil«n baglna. 11 la written far 
6000 ayatteta aapleylnO tha FLEX (TM) dlak operating ayataai, 

Tha FLEX diak oparating ayatea air« a <jy hat OCT ao why 
do h#e need anothar loadar you aay? OtT ia fine for loading 
pro9>a»a without filo apacl flcatl ona< but for thoao 
requiring rile spoci flcatl on Inforeiatlon it is net vry 
uaefu) Af\er GET loada tr*« iaroal crog/aa It return* 

control to FLEX and it r«*iatna an exercise for tha user to 
fiauro out no* to got ihe n«ccaaaary fil* #P«ci t icaiion into 
tin input tlno buffor Thla o»rerclso can be accenpli a U*d, 
but it can ba a frualratlno. ona Indaad TRAP aolvta thla 
problem eaklng tha dabug task for programa with file 
apecif icationa eaay and palnleaa Although TRAP vat wrltUn 
to aid in dobugglng pregraats with f-ila apaci f I cati ana. it 
<:an alao b« uaad for prograa* iui thout tha*, 

PROORAM UESCftlPTION 
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WE HAVE A 6809 FOR YOU 



POWER SUPPLY 

Modular plug-in construction with computer grade 
filters and a 25 AMP rectifier bridge. Blower 
fan is standard equipment. All con- 
nections to the power line 
are beneath the 
safety shield. 



INTERFACE 



Convenient serial or parallel I/O cards have DB-25 
connectors mounted directly on the circuit 
^ board. Up to 16 interface devices may 

be installed on the address decoded 
I/O bus. Programming stripsare 
provided for inputand out- 
put baud rate selection 
on each port. All 
outputs are 
fully buf- 
fered. 




CABINET 



Rugged 1/8 inch alloy aluminum 
base plate combined with a solid 1/8 
inch alloy aluminum cover for unsurpassed 
protection. AH interior metal is conversion 
coated. The cover is finished with a super tough tex- 
tured epoxy. 



PROCESSOR 

The world's most power fu 

eight-bit processor, the Motorola 

MC6809, plus 2Kbyte monitor ROM 

that is 27 16 EPROM compatible and full 

buffering on all output lines. Built-in multiuser capability, just add I/O cards to operate a multi-terminal system. 

MEMORY— Vou can purchase the computer with either 8K bytes of RAM memory {expandable to 56K), or with the full 
56K. The efficient, cool running dynamic memory used in this system is designed and manufactured for us by "Motorola 
Memory Systems Inc." 

PERIPHERALS- The wide range of peripheral hardware that is supported by the 6809 includes: dot matrix printers {both 
80 and 132 column), IBM Electronic 50 typewriter, daisy wheel printers. 5-inch floppy disk system. 8-inch floppy disk 
systems and a 16 megabyte hard disk. 

SOFTWARE— The amount of software support available for the 6809 is incredible when you consider that it was first 
introduced in June. 1979. In addition to the FLEX9 operating system, we have a Text Editor. Mnemonic Assembler. Debug. 
Sort-Merge. BASIC. Extended BASIC. Multiuser BASIC. FORTRAN. PASCAL and PILOT. 

69/K Computer Kit with 8K bytes of memory $ 495.00 

69/A Assembled Computer with 8K bytes of memory $ 595.00 

69/56 Assembled Computer with 56K bytes of memory $1,495.00 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W, RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344 0241 




UNIVERSAL static memory card 

• 32K bytes-ROM, RAM, EPROM or a combination 

• SS-50A&C compatible with 16 and 20 bit address decoding 

• Compatible with all SWTPC 6800 and 6809 computers 



This is the most versatile memory card you can 
buy. Our S-32 may be populated with up to 
32K of static RAM, EPROM, or ROM, or any 
4K block combination of these that you may 
desire. Any 5-volt 2716 pinout compatible 
memory may be used in this card. Any 4K block 
of the memory may be jumper block program- 
med for RAM or ROM use. This feature 
makes this the ideal memory for those process 
control applications that require a mixture of 
ROM and RAM memory. The board is fully 
compatible with all SWTPC 6800 and 6809 com* 
puters. 



The power requirement for the board is only 
1.75 amps at 5.0 volts with a full 32K of BAM 
installed. 

S-32 Circuit card assembled 

-less memory IC's (uses up to 16) .$99.50 

2716 Type EPROM for above $50.00 ea. 

16K <2K x 8) Static RAM for above 

(4016 or 2128) $50.00 ea. 




SOUTHWEST TECHNICAL PRODUCTS CORPORATION 

219 W. RHAPSODY 

SAN ANTONIO, TEXAS 78216 (512) 344 0241 



le»o. •» th « *>e«ory allocated far (ha prograa b«in$ Isidid 
dote not eomcidt wi Ih whilivtr i**ery location at which you 
cliaee Id er« TRAP [ thought about placing si in tha PLE* 
transient c«B«nd a*aory epacoi but tinea I do ceneiderable 
writing snd aedlfuaUon of transient ceeaertds which I 
oflo* need to deang. I detided to ploca It In high a«*ory 
ond hivi found that in ganoral 1 neve no prebleae with 
target progrui writing v«r it Onca Iho torgol program la 
loaded- TRAP hoo dono Hi iob> therefore. Intra is no 
probity wltK fRA*' toing daotroyod by prograaa which 4*> 
available a eatery teste 

Tha Mrat oparatlon parforaed by ThAP is obtaining tho 
lorfe! prograa Ml* Information ji no Mia **tantien u 
specified tho default la a BIN exleftlloh. If an error n 
aada in the laifol pr^r«* a 111* speci t icel ion o HU "*Pu: 
trdfaaA aaesage U. output and tha prograa* rilurfti control to 
FLfcX If no or r- or a in the ilia specification «r^ 

encountered than tha (lit ti opened for reading using tho 
KEX Itlo aenegeaenl ayataa Any errors encountered »h»n 
tha hit la ope/ ed will retOlt in tho appropriate f/LLX error 
toaaage wllh «onlrol being returned to KLt-.H 

the pregre* u>oa tha FLUX LOAD lubroultni to load tho 
te^gol prggrea ir»o ateaory The l oAu subroutine hea U<e 
capability to load program* with e fixed eddrev* oftrei 



Sine* no oMaat is ^in»<l, ilie oiii>t location a v »i Go 
cleared Subroutine *79iiD la om undocgeenlod f-LLX subroutine 
which i*l 1 1 icecap] i ah Ihre by eiaply doing a J£A to ihi* 
location Also tt»e tpace coapreialon Nag which residee at 

location %0B In the U4t control »]ocV auil be lit lo Hie 
uMcoapreaied (He atale tkAFJ for loading binary ftlee The 
Advj.r>ca<l Programmer a buide urili up lor lha LOAD a<Jbre<,it i r,e 
doae not do e very jiOod j oo in aekirtg it ct ear that thj a 
eiual ba done lo obtain proper loading Becauoe el lh«a I 
<u«»lod aeverel hours tryinj to urtdentsnd why ay target 
protireao would not loeU corretlly II you plan on »iti^ 
the L0A6 aubroutir»e For anything you need to aefca euro thu 
flag il ael correctly The LOAD subroutine aupplies two 
other Pieces of in? ornett on Thot is a 1 1 r»b iddnti and a 
• leg mdiceling whethei a Ijntege address oNieia The link 
addreaa specifies the Alerting sddlese for the tergal 
pr*gr«m eM It utilised by TRAP aa the address for lh#. 
prograa count** placed en the slack Ir no link addreaa 
ckiiii 4 fO ll*e\. A0f>d^»6 akeeeaga ia output snd centr I 
returna to FLLX If e link: eddreea la found it it 

incremented by one end Plered on (he atact it tho addreaa »f 
tha Prograa) counter Tho slack is puched an eppropriate 

nuab*r ©« Uaea la satisfy the number o * items on tho etevk 
required for an KM and control t) transferred to the 

aohller Tho uac-r it new free (a sake any rha^see to tl.« 
l*»*?el program object code he wishes Typing a -O* will 
cauaa ihe monitor la mitiato a ATI which will restore u.e 
stole of the processor to thet which OMisiad before tha 
pseudo loltfiri interrupt occurred $inc« the tergal 

program start tddreas was put an the stock ae the prograa) 
counter. control will be> Irehaf erred to the target progra* 
If the target progaa contained file speci f icetien data the 
Input buffer pointers in rttX will point to the proper daij 
and it sill be aveiJmble to t«»e target program aa though the 
date «n entered ee part of e norael input coswiand line 

EiAHfLE 

Aa an eNsapie oi how (he fAAP prograa la uaed let a 
asauitte thai we have a pregraa* called T£S1 which starts at 
letelion •QlOQ ind r«4juirn it I e input apeclflciton Hal* «o 
execute If TRAP realdaa an tha syste* drive ea a Ct\D file 

end ffc&f residea an the work diak ea a CrtO ule* etatply 
typa 

fR*«P. "(EST CMOtUUrViVFIL 

rhe prograei would be looked and control iranaforrad to 
tha manlier which mould reapond with the standard software 
interrupt rsonllor output Out for the progroa counter 

would contain avlOO» the etart of Iho progrssv frogra* 

tsedli icat t one auch ee progrea Palcfiea end eoflware lnterupia 
cen now be aada and execution begun by t/ping *0«- The 

input linm buffer will point la the first character of 
DlffirirFJL and Ita tile sped f Icotton information will be 
available to the iargal Progran> 

nOUIFlCATlCNS TO OTHAATE btlTM OTHER rONITO»ts 

TRAP wea written to run on a eyelet, sthteh haa P1IKBUG 
for e aonller pr«djr*asv It wt 1 1 ala o run Properly aa 

w.itturt. ah ayateets which uia BAAfTrsWl far a m on i lor If 
you hove a ayata* which usee ftMTfUO It will be neceoaary to 
aeka the aodif 1 call ens tndlceted in Iho Hating lo take TRAP 
work properly This will aat up the bfeekpolnt jxmP address 
auch that the rauedo software Interrupt will operate 
Vreaarly 



TSC ASSXjKER VER 1 \2 

IfatiT FlLt IS TPJAP TXT 



T*C ftSSEfVLER PAGE 1 



•/13X79 ON DISK SCIWTCH LRJ. t 



WW73 12 3 



1* 

2« teee 

.1 .'i,-- 

23 TtZb 

27 ?t2A 

2* ~"*«* 

29 7»©#> 

27 y©w 

28 7118 

29 71JC 
?» 7883 

31 riei 

» 7*5X> 

13 aTF« 

34 8601 

39 fjooe 

M €882 

37 

38 8083 

38 8806 

48 8889 

4i fjraoe 

42 GOOC 

43 689F 

44 6812 

49 6819 

46 6817 

47 6819 

48 601C 

49 681E 

98 6821 
9* 6824 

92 6826 

93 6828 

94 6828 

99 682E 
94 

17 

B* 

59 

80 
61 
62 

63 6838 

64 6833 
69 8834 

66 6837 

67 603* 

68 6838 

69 683C 
P9 683F 

71 6048 

72 6841 
71 6842 
74 «»43 
79 6844 
76 6847 
77 

78 6049 

79 684C 
88 884F 
«1 6891 



28 01 
81 

C£77 4» 
6T> 71 27 

29 31 

CE 77 48 
4F 

BO 71 21* 
CE 77 aO 
86 81 
R7 08 
BO 78 86 
26 33 
BO 79 9*> 
CE 77 40 
86 ft 
R7 38 1 
BO 71 2* 
86 78 9E 
77 26 



OTO 
OCTFIL iOU 
SfTlKT ECU 
LOAD EOU 

FCB EOU 

FHS EOU 

LINK EOU 

SRTAOA EOU 
PSTRffQ EOU 
RPTERR EOU 
F«SCL< EOU 
Mf OilU EOU 
CLROFF EOU 
VE EOU 

VERSION EOU 
START OR* 

FC8 



SIN 



•7127 
Bfl£D 

• 71ZA 
•7740 
I -^ 
•789E 
«78c^ 
*7110 

• 71 3C 
l — 

• 7161 
I ^- : 

•FFFR 
•01 
8E0IN 
VER910N 

■FCO 

OETFIL 
FtLElff* 

• FC8 

SttEXt 
LI- ifC8 

LWI A »8l 
STfl A 8,X 

Bfc FfrSERR 

JSR CLROFF 

LOH «FC8 

LOA R 0I1FF 

«TA A •38- X 

J5R LOftO 

IDA fl LINU 

fl>' Lf*fER«> 



J9P 
8CS 
LOK 
CLR A 



S/X INTEPVPT WET TOP 
VERSIOM 

GET FILE KRHE 

5CT EXTENION TO BIN 

OrTCN FILE FOR PEAf 



FflS nmra» RET TO POS 
CLEfV? LOAOER OFFSET COUNT 

RESET 9PAcc ColWESSIOH FL*»0 

LCRO FILE 

LIMK HDOfctSS RVTRL^ 

MO LIMK-OUTPUT ERR JrIP OOS 



•SET UP f»WCC«90» ST**CK AS THOUGH SOFTtdRPE 
• INTERUPT OCCuRRfiO TKE START HOti FOR TWE 
ePROQPilVI IS ST0R80 IM THE PAOTjRTVI COUNTER LOCATION 
eSO Tr4HT A RTI WILL lNtllRTE EXEJCUT ION OF THE 
«TA*OET PROGRAM 



FE TO 9? 

88 

FF 76 9f 

86 76 no 

36 

86 76 9* 

36 

36 

36 

36 

16 

16 

Fl FF F* 

6£ OO 

CE 68 62 

80 71 16 
20 88 

80 71 3C 



LUX 
IMX 
STX 
LOA A 



SRTAO* 



SFTRPP 
S»TA»>R<»1 



OET POM STAPT AOR 

INC W 1 - HON OfIC BV 1 



LOM A SRTAj 

PSN A 

P-$X R 

PSN R 

PSN R 

PSN R 

r9N A 

LDX SFE 

Jr» 6.X 



JSI» 



FMSERR JSR 



•OETEAR 
»»ST»faO 



SET UF STACK 

GET STARTING R8e> ON «rNCK 



SATIFV OTkOTR STATIC 



JNP TO HON 941 £>#TSV POINT 
FILE SPEC I 



6836 Cf 68 72 LNKERD 
8899 8t> 71 16 
689C B8 78 63 ERRCM 
60SF 7E 71 63 



LOX 
JSR 
JSP 



•LNKftSO 
PSTfcNO 

l-NJLLS 



NO LINK APORESS EXISTS 
CLOSE OUT FHS 



91 
92 
93 

94 

S 

97 
90 
99 
188 
101 



6871 64 
fjgfl 81 
6681 84 



OETEKP 
LNKN90 



FCC /FltE SPEC ERRdjA^ 

FCB 04 

FCC /HO LINK AOORCSS/' 

FCB 84 



• INSCttT NEXT LINES IF USINO TRAP ON R SYSTEM 

• MfTH SWTRtlQ FOR A MONITOR 



ORO •N812 
F0« 0E123 



NO ERROR* S> OETECTCO 



TAPE LABELING 



Ches Looney 
3406 Notre Dame 
HyattsvMle, K) 
20783 



9 
6 
7 
8 
9 
16 
II 
12 
13 
14 
19 
16 
17 

26 



BITTEN 8V L A 
MIOMr 10MA 



THIS P9O0RV81 IS OESIOfafO TO PROVIDE 
CONTROL TO The USES AFTER R PROGRAN 
HAS RtKN LOADED INTO NE7CAV 8UT 
BEFORE EXECUTION MO INS RLL CAT A 

ENTERED INTO THE INPUT LINE BUFFER IS 

RETAINED 

THIS ALLOWS THE USER TO LORD R 005 

PPOORAh NITM FILE SPfJC IFICRT IONS f£> 

MRfXE PATCHES mITm THE SYSTEM MONITOR BEFORE €XE6UT10(* 

OF THE TARGET PROOPMl BCOINS 

THIS PROORAM IS WRITTEN WITH THE SMTP 6000 SYSTEM 

AMD THE MIKBUO MONITOR 



'6888)' Micro jQLamal 
3818 Hastlll ftd, 
PO 9om 849 
Hlwaoo, IN 37343 

Dear Sirf 



For Ue paat t*varal RBoih4' I f^*u« b ee n uatnat tht JRC Matt 
a^eexi ca>«aa>lLa> inLaffac* and U>a>ir fil* ssafvaawr CFHV3 with 
cw>*ida>rabla aat i afact ior». 1 Sav* r«c*nllw add*d Lha> TSC full 
fa>aAur*d BASIC ir»t a*" P^artor lo s*w twataw wii^ «^>tcr» I r^ad war Lie*- 
vaad if* TSC Ntcro Plitt and tr» CcawxuLa^vara BASIC inUrn-fLfrt, 
r>a wm aiia9it tuv«t. I now r^e*-* a doodlv f*^t*i- of costotLo- 
tiOrwd M^Sttt ard tf^ir ItsVoL^r-a vd arokr-insi h** t**'n a 
'..-..-***»* tfid chare? or •«•• avaVat-aftcp, Trw> ati-*xf\a>d Uat.irej 
and OaacrlPtion diva i» aravatlon on a laOo-lltrta proarajs I na*4> 
*~9r> u%tr>* If^al aav oa- Of »«*4) ir.L#ra>st to woce- r»*wr», 

irw>J Koow i,t> lr«a> dood uorL 1 



tirte«r6lw> * 



'68' Micro Journal 



Tn»* Fr*A-iai i* uiarui (o» pr mtui* till* c*rdt for insertion 
inte wa^utat h«^ab ar audio «.as»»tt» boiat. Tha t**t run 
■ tic*** - »#» k v<r 4 »wj» Unt v«td <r tlM- ivri. Tue re»<% of hvph*r>* 
«*l vtf U* t^O Uri* c*»i«Ur title end ihdiceta tha foidirt* 
ljfivs *o vh-L II* bo. till* will »hov at tha acta* uhi la tha 
indlfidtaal prturim ^r ujf«- title* *how U»oo* UNe treni parent 
• »d*| of the ce»«et<«> bo.. Th* rrlnl*r u*ad <>4*ethkit Ht4) 
#nnl* o l ina» »** inch and ^kniiU »«ftw>ara wltdiofi of on* 
of U- ^v *=r mt piCfeha*. Tr>a er<>er.aiu salect* IS char.acterav inch 
it, u* v»t»*U* i itl*i **d 16.3 d*Ktiri-ineh r<* the aroe^e* 
title*. 

Tf» riutth U uiiU*f> fo* u*# uith C0H^Mt»rutr#'* c****tta 

v«f4iui Of OftStC, the HUME command In IUm 18 Clear* the CRT 

u>«hm ln w . 13 end 20 diteble tr«e I ine lentfth control cUn£- 0>» 

diM^ibicr. ro» title lev<athi of 34 character* and * lelal er 2b 

tjtlet* •"'«! frtnt a erpgVa* t»tlaof "INtOi". Line 35 indicate* 

Up* US* <*f *'■*» tn(i«lAUOn POint <•> U> • i*Uf* the end of UWt 

«ol,v. LUki 40 calif tna ioW«Jlif* At lif* 40O to et**a*le 

U* ,i.Ji i-:.i*| lit!** and th* two-line bo* till*. Tna »^r»» t i^n, 

B»A-l, 1<< I in* 40 it to acLjutt the uerleale B to the ruior Of 

tltia* er.t«»-*d. Cw\iUr«*« ♦ interpreter r*l^r<»t tf>a iselue 

o* tna I'trl^U iti « FOR-HEXT loae ei one areata*- than tha 1\j1 1 

count. 

The ♦x^n»ttlor>« ttertlrt* with "PRINT 0*?«<27> - in ilra>* *3, 

59 *n« 65 control the ermt Pitch variable in the printer. The 

tt*o com* and* era H «CC u < M for tha 16.5 characters inch and 

"ISC u Control -A" for 10 char acta* •- inch, ESC it the -ESCAPE" 

couaand or character and i» identified b» ih* CHRI comaanci at 

"2?"j tjealarJ*. Control-A t« i<>#nVifia<i w CHR*<I>. 

Tha t«o linat of hw»hant. *^* printad aa a tuuoutir* i-, i ir* 
SGO mnd ira called tn» linaa 50 and To. If tNere era leti than 
i4 t)Vl«»i a^.lv ona »kda *f the title cand la w int*0. Thia it 
control lad bv the "IF 9< 14" c<vN«an<3» in I ir*»* {20 and 159 and 
t* t^* -IF JV»C*>B* coM.and In 1 In* 17B. Tha [hff>tfT caaawsV in 
Una 190 la used onlv to hold U*» flr.ithad litla C4rd on tna 
CRT (no»il,cr and (^p avatd M-tr«l«ina tha 8RSIC prcxaat aaavisa at 
the and of ir+ rut, i#atl tha printav haa &«en tended to and th# 
Card K»*^^—<i. Lit** 210 throwat-t 230 "e*"»lt corractiona to ba 
flbiii* imd* . 

Th* nfcroullrt* ktartirM at Una 40© Hkl for ^ tc- 16 LtUtl' 

and «*>'itai the uaaf uftan tha tecond column or riaht Sand aide 

of ■ fie till* card it about to ba »t m t*d. Tha ad^liorv aj>a«a«a 

is in Una 405 and tt cellevj fcv tha "IF r^-14" coeuaarKJ. Line 

-llCt *l«p» U-^ xrot-M or tuna title entrv Mith t^ "IF f*<M... m 

coaatend. Line 42Q acucitta tha length of **«*> Ko ba 29 character* 

ar la4». kJdhauat^ tha rroaret* ha« permitted if to 34 lo k* alarad, 

ThH i.-a* labia car* be u*ed to adjutt Okfti>vt to othvr conpuUf 

line eltc^a. tine* 430 thrauJIi 470 raauatt tha caeeette box 

tuo-llf^e titia and eerier it. 

th» a*»raaslon« atartin* with "PRINT Oaca<27>" in line* 49, 

53 and 63 control tha arlnt pitch variable in tha printer. Th« 

U* c^arvande era "tSC u <" for the? 16.3 char ec t#rv inch and 

•€SC u Control-fl* for 10 cnaraetarm^inch. WC la tha "€SO*€- 

ccamand or character and la Identified &w tha CHRS emend *% 
'2? m t timlarW. Control-A I* id*ntifi»d « &«$([>. 

Thv twe llnaa of r*^r*r*% «^ rt-intad a« a eubroutlna In Una 
390 and era called bv llnaa 30 and 70. If th^a era laaa U>an 
14 title*, onlv one aide mf tha title card la minted. Thia la 



controlled bv tha "IF 6% 14" easueendt in line*. 120 and 130 and 
c» the "IF rUC<-B" coeavand In Una 170. Tha V9*JT coewand in 
line 190 la utad arlv to hoi d tha finished title Catd on tha 
CRT aanltar and to «o*ld priotin* the BASIC pro«e>t <**+%»*• at 
the »oa of tha «*un until tha printer hat been tended to end the 
C3f<i rma^d, Li net 210 thnon*h 230 per«nit correction* to be 
eetilv i»»»dp. 

Tha tuVautina iter ting at 1 in* 40O Mht for up ta 26 tit lea* 

end ad^tti the Ufer *^ari the lacond coUmn or riant r\*nd tide 

of tha litla card tt about to be »t» Wd. Tha adUiaarv ra««aaa 

1* in lir* 403 and it called bv tha -IF A-14" ccatMind. Line 

410 *<ot'» th* n^oatMMM « tuna tm* entrv uiUi tha "IF **<*>..,- 

ceaa»and. tine 420 ad.«u«tt tha length of **<(*) to ba 29 character* 

ar ]«■*•, ftlthoodh tne prcra» n*« rartoittad up to 34 to ba ttorad. 

Thiii v* labia can t^ utad to ad^ubt eutput Ip other- CotM>uter 

line ritchat. ttriai 4SO thjsauah 4TO raauatt tha cattatta oom 

is«a-lin* title *nd center it. 

0010 MQtE iR&l CASSETTE !fce>€X 6/79 chl 

00lS LUal- OtMN AK26)-A<26> 

0020 NONE *STR[l4G-34lPfcJWT Tfl6< 1 > J - 1 HOEK" l PR 1 NT 

0030 PRINT K ENTER TITLES IN SEQUENCE^ THE FOLRTBENTN UILL" 

003« PRiNT "START THE SECQlO COLUTH. USE * \* TO STOP ENTRIES. " 

0O4O G0SU6 400»B><ft-l:ll* , trT "TVp£ HETURN TO PRHfT^/t)* 

0d«5 PRINT Ce4?J < 27 J J"u<* 

0O5O COSUB 3O0 

0039 PRINT CHRK27>r u' jCHft*<l>; 

00»iO PRINT B* I PRINT C* 

0065 PRINT CNR*<27>l-'u4 , 'J 

ooro uosue 300 

OtOO PRINT T«B<4>j"»»** TITLE ♦♦**"; UF Bs 1 4 PRINT) GOTO 12© 

0110 PRINT TABOO);" l fc JT«B<34> ;'♦**- TITLE ****♦' 

0120 fe* J*>i TO 29IPRINT — " ;N«XT Ki IF B<W PRIMfiOOTO M0 

0130 PRINT "l";*FBR K-l TO 3eirRl^T — "/iNEtfT X*PRINT 

0140 IF 8>13 C-13 

0150 IF B<14 C«6 

0160 FOR A-l TO ClPRlNT A*<A>J 

OlTd IF A»Cx*6 PRINT T«8<30;>r:"fTFie».32>;P<*AA»£>; 

01 SO PRINT tNEXT A 

0190 hlFt/T -PPlKT CARO RG«lN b -0* 

0;00 IF LEFTXO*,^^"^ GOTO 45 

0210 INFtJT W IF CORRECTION UEECEh, ENTER TITLE HJ«E*t*,r« 

0250 IF r**— ei^c> 

02^3 IF A5C^*;/37 Elit' 

0227 JF uHl<2*»K ENt- 

023* LET A-UALs2»)i PRINT A*<A/» ll**UT H NE4i TIUE" - »M«.A>lGOT0 190 

0400 F«R N«U«26 

CMC3 IF R=14 PRINT "NEXT TITLE IS TOP OF SECONB COLtflN. " 

0410 PRINT "TITLE "lAillMfUT AlcfiyilF f«^A>«*" - GOTO 430 

0420 LET A«<A,>flLEFTtArU<A>,29>cNEXT ft 

0430 J*JFUT "TVfE CASSETlE f i TLE F1R5T LJNE^/B* 

♦440 IhPuT TSF'E CASSETTE TITLE 5ECOf* LltC-.Ca" 

B43C FOR X»l TO ^34H.OKB*^> 2*fi>*" '*B»ifCXT X 

0460 FOR X»l TO <34-tEK a Ci>> 2;C*-" -ac»irCHT X 

0470 RETt^N 

OSOtJ Ft* fc*J TO toa)tPRIhr "-"itlCXT XiPtflKTiREnRN 



BASIC 

WSitt 



•NTERt TITLES IN £COUEmL£j Thai FOURTEENTH WILL 
STAR! THE SECfNu COLUHr^. t5E ! TO STOP ENTRIES. 



TITLE 1 
nruE 2 

TITLE 3 
THLE 4 



3 - OREXiCai TJ?ML 

7 183 - Il4sBtOT 

7 210 - U».0L0T2 
TITLE 5 ? 237 - CASSETTE HOEA 
TITLE 6 7 
I I TLE 7 7 

riaE a 7 

TITLE 9 ? 

TITLE 10 ? 

TItLli 11 f 

TITLE li 7 

TITLE 13 ? 

NEXT TITLE IS TOP «F SEci»a> C*.tiW. 

T ITLE 14 7 3 - SORCERV 

TITLE 13 7 73 - 1uO OlA^CaOS 

TITLE 16 ? 103 ~ FUN 

TITLE 17 ? 132 - RISK C***T 

TITLE 18 > 167 - GUEST 

TITLE J 9 ? H 

TVPE CASSETTE TITLE FIRST LINE7 ROM BASIC 

TVT»E CA5SETTE TITLE SEtXjNO LINE7 Q*CS - U 

TVPE ^RETURti' TO PRlNf? 



ROH BASIC 
GflfCS - U 



■ rirLE - 



hk ■ l ' 'J — 



j • asm TwiL 

ef* filXtUEv 

M- 

23? ' uaetTit MOC 



: J- 

i li l* 

i ra*n»aipT 

1 leT-lEST 
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Letters— New Products— Etc. 

••••• HELP ***** 



Dear Sir, 

Needed: Information on where to get 
or how to add expanded graphics capability 
to a SWTPC 6800 System with CT-61 (Would 
like graphics similar to PET). Also: 
Information on adding Speech Synthesis to 
SWTPC 6800 System. 

Sincerely, 

A.T. Magi 11 Chm. Sci. Dept. 

Streator Township H.S. 

Streator 111. 61364 



Help, 

I work extensively with the SWTPC 
AC-30 using it for all manner of I/O. A 
recent program of mine makes and 
incorporates an effort to store some data 
from tables. I am running into miserable 
problems that haven't occured before when 
trying to I/O records that incorporate 
more than a few variables from or to the 
tables. Can anyone offer their experience? 

Thank You, 
thO'Loughlln 
908 Salem Dr. 
Huron Ohio 44839 



»»» HELP FOLLOW-UP »»» 



Dear Mr. WTI I tarns, 

I wou Id 1 1 ke to thank you for pr I nt I ng my 
letters In your HELP Column. I have received 
many responses from fellow SWTPC 6800 users who 
have been kind enough to give me solutions to the 
problems I was encountering. Clearly they have 
bean down the seine road before and their edvlce 
has made running my system more effective, less 
troublesome, and simpler. I have received 
software modifications that allows the port 
command In SWTPC Cassette Basic V ( 2 to be useable 
as well as Printer Routines to be used with TSC 
Text Editor and Processor. I have Installed a 
MP-S card on port 2 of my system and loaded It 
with a L.E.D. and resistor 1o check for 
transmission of data at that port. It was great 
when that L.E.D. flickered when I used the port 
commands In Basic or the Printer Routines 
provided by a fellow user for the TSC Editor and 
Processor and regained control at the CT-64. | 
am welting for my Worldwide Electronics BCD to 
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ASCII Serlel J/0 Printer to arrive end I believe 
I em better prepared to use this device thanks to 
the response by readers of '68* Micro Journal. 
Regarding the generation of spaces on the CT-64, 
this was found to be a key switch on the space 
bar sticking In the 'ON' position. I am still 
working with the cassette In spite of the greater 
aval lability of software on disk. By the way 
I r ve dumped the TSC Editor end Processor to one 
cassette. To anybody else who wishes 1o do this 
rather than go through the LOAD/RELOCATE- this 
and that Routine use the following memory 
contents: 

P W048-WA049 (2000) 

P M0097-M009O 

P M0OB3-MO066 

P M020O~M;5DO 

P M2000-M330D 

Includes Space For Printer Routine 

Now I can load TSC Editor and Processor In one 
third the time. 

I t ve enclosed a small Routine (Basic) for 
adding up a grocery bill or summing cashed 
checks. Also enclosed Is a review of AAA 
Chicago Cassette K Basic. 



WM 



Sum Up To 100 Items 



060 PRINT "TO ADO UP ENTER 0" 

070 S-0 

080 DIM A(100) 

090 FOR f#1 TO 100 

100 PRINT "ENTER ITEM COST" 

110 IfFUT ACN) 

120 IF A(N)-0 THEN GOTO 150 

130 S-S+A(N) 

140 NEXT N 

150 PRINT "THE NW«ER OF 

ENTRIES **E:";N-1 
160 PRINT "THE SUM OF 

THOSE ENTRIES IS:";S 
170 END 



P.S. 
etc. 



Other users can modify to Include Tax Rates 



Thank You, 
Jeffrey M Craig 
Apt 912-3001 S.King Dr. 
Chicago, I II 60616 

*** REVIEW *** 

AAA Chicago Computer Center sells a Cassette 
Basic K that has al I of the fea1\jres of the SWTPC 
Cassette Version plus Line Renumber, Delete 
Lints, and Print Using. If you have used SW1PC 
8K Cassette Basic you will have no problem In 
using AAA's K Basic. The statements, commands, 
and format are the same. Once the K tape has 
been loaded (20 minutes) and brought up one can 
load programs developed with SWTPC 8K V.2 Basic 
and then modify them with such commands as RENUM 
end DELETE M,N. It Is really nice to see every 
line spaced by 10! Another advantage of K Basic 
Is that line length Is Increased 10 74 
Characters. 9K of memory Is required for this 
Basic as well as a 32K system (there Is a routine 
In the 7000 f s). Again this version like SWTPC's 
8K V.2 Cassette Basic has port commands that are 
Inoperable. A simple change of two memory 
locations will allow one to backspace with a 
control H. However when this modification was 
Implemented, programs with heavy math content 
were un loadable. The patch command was tried to 
get (MIKBUG) but the cursor was left hanging. 
Programs developed /1th SWTPC 8K V.2 Cassette 
Basic were run on K Basic end they ran OK. 

'68" Micro Journal 






This Cassette Version of Basic Is $55. There Is 
a Disk Version (not received here and to which 
some of the above statements nay not apply 
concerning Patch end control H loading problems) 
at $50. 

System: SWTPC 6800, 32K RAM, HF-A, MIKBUG, *P< 

on port 1, AC-30, Cr-64, Craig Cassette Recorder. 

Jeff Craig 

Apt 912-3001 S. King 

Chicago, I II 60616 

*•• CLASSIFIED **• 

SWTPC 6800, SWTBUG, STANDARD 1/0 with manuals S450 
or make offer Cell Larry Clark (615)842-7655 

SWlPC Memory Boards, Low Power Chtps-Fully T.I. 
Socketed, only 5 left-$50 each: Ted Wolff, 579 W. 
215th St., NY NY 10034 

New 61m I x Chasls Video SSB 16K Memory MP1 B51 
etc. $1700 also B&K Oscope $400, M.J, Labombard, 
1327 Scott Dr, National City, Ca. 92050 

SWTPC Cr-82 terminal with graphics, $700 postpaid 
Phil Hughes, Box 2847, Otympla, HA 98507 Days 
{206)357 4415 Evenings (206)352-9637 

SWTPC H 3 09 processor board $150. FLEX 9.0, 
EDIT, ASMS for MF 68, $70, Phil Hughes, Box 2847, 
Otympla, WA 98507 (206)357 4415 

WEST COAST COMPUTER FAIR 
March 14,15,16, 1980 

The annual 1980 West Coast Computer Fair Is to be 
held at the San Francisco Civic Center this March 
14th, 15th, 16th. There will not be as many S50 
bus 68XX dealers as In previous years. However 
we (68 Micro Journal) will be there, In and out 
of the 61 MIX booth (104), and hope to meet a lot 
of our readers end others we have not had the 
pleasure of shaking hands *lth. Please look me 
up, I wilt be wearing a hat that has Imprinted 68 
MICRO JOURNAL on the front. If I happen to be 
out of the booth leave a message or look for the 
red white end blue cap. I look forward to seeing 
many of you there. 

While on the subject of the 6IMIX booth I hope 
that all of you will get a chanee to drop by and 
also meet Rlcherd Don (Mr. 6IMIX), Ken Kaplan 
(president of MICR0WARE) and possibly Terry 
Rltter (Project Manager for the Motorola 6809 
development team). Mtcroware developed the 
OS" IX" System end BASIC09. I understand that 
6IMIX will have running the new 0S"IX« Operating 
System and BASIC09 language system for the 6809, 
with the new 61 MIX 6809 MPU board. This software 
was developed by Terry end Ken for Motorola end 
will be available through Motorola distribution 
channels. In the future. Our Initial Information 
Indicates that the above will Include 
comprehensive management of memory, *PU time and 
ell J/0 communications. 

The system runs In two basic packages (RDM). 
Level one (I) Is a single user single memory map 
version, and Is a compatible subset of level two 
(2). Level two (2) Is a multiprogramming, real 
time operating system that supports full 
timesharing on systems equipped with extended 
memory mapping end an Interrupt-drl ven disk 
system. Both versions ere system Independent and 
will run on most available 6809 systems. 

The 0S"IX« 1/0 Is similar to UNIX" (Bell 
Telephone Labs) with many enhancements for modern 
hardware environments. Level two supports 



Inter-process communications and a hlerarchel 

directory system. ROM 'kernels' are position 

Independent, running anywhere In available 
memory. 

Also demonstrating at the 61 MIX booth wl 1 1 be 
Dave Allen of Control Systems Inc., Microsystems 
Division, who will be demonstrating the current 
6809 version of UCSD PASCAL", running on a SWTPC 
6809 S50 bus computer system. It Is our 
understanding that this Is one of the most 
complete version of UCSO PASCAL" running on any 
micro. While on the subject of 6IMIX, rumor has 
It that their new 512X512 direct bit graphics 
memory board Is soon 1o be available. It Is a 
two board set end uses a modified 6IMIX 32K 
stetlc memory board as one board. We have used 
the 61 MIX Super Video Board for over 6 months now 
end If the new video board works as well and 
glltch-freo as the one we have been using, It 
should do wel I • 

If you make the West Coast Computer Fair be sure 
end catch the talk 1o be given by Terry Rftter of 
Motorola. The subject Is "Modular and Structured 
Programming on Smell Systems Including 6809 
Assembly Language". This should be a must for 
all programmers of the 6809. A hard combination 
to beat; as Terry Is the developer of the 6809 
and the 6809 Is by far the best micro going 
todetel 

We hope to have a complete review of the software 
end ROM packages as soon as they become available 
to us. See you at the Fair. 

DMM 



TO: 68 Micro Journal 
3018 Hamlll Rd 
Hlxson, TM 37342 

Attn: Letters to the Editor 

Deer 68XX Users, 

LET'S ALL GET ON THE SS50 BUS 

A funny thing happened to me white I was 
selling some chips. An SI00 memory board 
manufacturer phoned to buy some 4044s from me. 
After he placed the order he asked me how we were 
doing selling memory cards for the SS50 bus, end 
why we had decided to make such an odd bus, since 
we were the only ones selling boards for that 
bus. Me was surprised to team that SW1P was on 
the same bus, as wel 1 as so many other 
manufacturers. I later looked at the ads of other 
SS50 makers and saw that they seemed to be 
keeping a good secret of what bus they were on. 
Now, for the readers of the 68 Micro Journal they 
already know who Is making what, but for readers 
of the general computer magazines, a lot of them 
do not know whose boards are compatible with 
other makes. 

SWTP started the SS50 and all the other SS50 
manufacturers that I am aware of started by 
making boards for the market that they 
originated. We have a good thing going for us by 
being able to brag about our compatibility. Why, 
then, do some of my fellow manufacturers want to 
hide the fact of which bus they are on? Or could 
It be that they ere assuming that ell the users 
In the general marketplace know that the SS50 Is 
the compatible bus and who Is on It. 

6IMIX IS PROUD OF THE FACT THAT WE ARE ON 
THE SS50. We advertise that we are compatible 
with swrp. 
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We view the enemy in the marketplace as the 
non SS50 bus machines. When a user buys one of 
the enemy machines, we have most likely lost him 
for all time as a customer. BUT — When someone 
buys an 5550, we will In all likelihood have him 
for a future customer for one of our boards, 
regardless of whose mainframe ne originally 
buyStAnd, the same holds true for our fellow 5S50 
bus manufacturers. 

So let all of us, readers, manufaturers, 
software houses,and anyone else Interested In 
promoting the SS50 bus, proudly tell the world 
out there that we're al I riding the best bus 
there Is. 

Richard Oon 
GlMIX INC. 
1337 W. 37th Place 
Chicago, III 60609 

•66 icro Journal 
3018 Hanlli *>«4 
KlXtor, Tern. 

Gentles em 

EL1LLXI I would have thobftht that • lattor ahloh co»»ant* about an 
error jou publlehed and oakaa tha atataaent that it la *4*vaatatlng 
to R6800 eyet«e» <Kov./&ec/ 19?9> P- 23. Kr» Davie | would have 
attracted your attention. 

It would not hav* ta an long to aac tnat *r. AVevla' problem (or 
oonfualon aa It were) la aair lnflloted. rt« le apparently una«are 
that a T8X Instruction automatically adda ona to tha Sf value prior 
to placing It In tha *Ji. ConaaQuantly , a LDX 0,H voriie fine for 
retrieving tha return addraaa of a J3H. Mr. •avle* ProMam. for 
ahlch ha oorraotad nicely, la hla PSHA prior to doing tha TSX. Thu 
daaramantod tha SI* by one sort eaualng him to compensate by doing 
a LDX l.X. 

flut your are forgiven your overnight ae lndloatad b> the oncloeed 
aubacrlptlon renewal. Keep up the good uork. 1 really enjoy your 
publ Ication, 



aincarely. f/ 

Hike Lyddane 
Sen Joee, Calif, 
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Ed p s Note: 

We made a call to Jim Tanner of Digital Research: 
Computers and were told that during that 
particular time the memory devices were on 
backorder (by factory) and did cause a period of 
delay. They are now current and are able to ship 
within two weeks. We would like to note that we 
have received many letters and calls, from 
readers, telling js now much they like the memory 
board. Because of our previous 'Lab Review 1 of 
the Digital Research: Computers 16K memory kit, 
and the high rating given, the above Js published 
for reader benefit. 

DMW 
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Ml , Don rfl llltmi 
'&!' Micro Journal 
Hlx»on, 1H 573C3 

SCRATCH PAD RAM EXPANSION 0«cefl*er l?j 1979 

Dear Don, 

One of our customer* called and a»kad If It wit ponlbla to aaoend 
the mtnory iO«ce In block U000 without Install las ■ kX board, 
Ha had our CFH/J CattaUe Ooera"tlr« 5y*te«i EPflOM Version 2 .PA and 
had dedicated one of hit Ml boards lo accomodate that version 1 * 
scratch pad memory UA0B0-1 AOFF i. Ha was look frit for an easier 
(cheaper) way to *ei tha 110 Byte*. 

IC-5 on tha MP*A1 board It a motorola MCMfralO whtch has 180 BYTtS of 
MAM so tha expansion of this $10 ttyras of me<hory was the logical 
cholca. Tha fob turned out to be wry it*iPle. Tha decoding of 
tha 6810 I ©aval a number or chin en M a Unas permanently grounded 
so that It aniwars to a number of aHdr*t» blocks (rolls over every 
140 Uyte>). By uslna ona of th>se enable lines ft was POslbl© to 
ejcoaiid the scratch pad RAM by just "pE City-beck In*" another 61 ID and 
ustn». on" of tha spare enable plm to select tha proper chip. 

Tha lollowlnA Is th«r orocedure that was usadl 

(1) Get another SJ10 (cost about 130,00) 
U) "Win/ Out" oln 111 on both &81G'«, 
(1) "plaiyl^Ck" io1Jir tha regaining. pln$ toaathar 
U) Attach t M o 7" wires to tha #11 plm. (light gauas ulra) 
m OHM a hole In the HP'Al board between IC-J A trj-2 
(this is optional but trade It look naatsr) 
Place the Hole Just to tht right of IC-3 pin Ml 
and bo csrofw) of tha trace behind the board III 
<t) faad the two wires frpn the KbIO's through tha hole arid 
attach One of thou to the A7 (Adrfre*; line 17) r> In on 
Hi© hottofc Mole* connector. 
if} Put ki i\n>-Qor wire from the same At ofn on the Hole* to 

IC-9 tin «1J <?l>0k). 
(!) Put the second 6B10 jumper wire to pin #1? on IC-9. 

IC-9 Is a HEX Inverter and one of the gates Is not used on the A2 
board, liy us in* this cats on A7 It gave XT and allotted ft to 
select ore 6B10 as $AO0G~»AO7F (JuM Ilka Che orfgfoneT 6110 
dacodi! worked) and the other as SAC-fo-SAOFF which meats tha 
requi«-aments of JPC's C F* / J Version 2. PA. This would also help 
any one that needs a few extra tiyte». out of the re*eh of other 
Drofrlmf, 

Tht* *aa ill that tfii required. Any one doing this rod should 
be Vt.ir careful on all soldering and STATIC ELECTRICITY Mill I 



fill i'.tUfKffUJ A*Cbi* 

m>*«. Ilhu,*. «ov^ U v A 
1 Koventbar 1 °7* 
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301 fl Hani 11 Road 

P.O. Box «Ji9 

Hijcaon, Tannesaee,, 3t3U3 



Oentleman, 

Slnoa TOUT atarr la busy, three abort oomnenta to yeu I 



1«Yaa r many of ua in the area who mlaeod tha fir at fev 
iaaAjee "would bo Inter a a ted In onying a reprinted 
*oluas of the flrat asrersl issues to oorapleta the 
ool loot ion » 

?-Rofarenoe the eontaat- tauofe oonfuales hara about 

tha BASIC division. Does this mean programs written 
In BASIC or a art war a pa tone • to existing BASIC 
Interpreter*? Perhape you ooold olarlfy In next laaue. 

3 -Many of us ltttla gajm era up and running with 66*00 
and hate no intent Ion— Wt for— or tima to repro^ravt 
for 660)9 system*. Therefore, don't «et to caught 
up with &Q09 neve and program* that 70a neglect a 
large baaa of 66oo,fcrevar haokeral 

Keep up the good work— -til of Tool Raring 6600 only 
type ada la worth prioa of aubaorlptlon a 1 ona I 

3iiyaar*ly your a 






AmatQw\ Station W6KMJ 
Jut<a*i "Jei*y" taa& 
■IT j 3 Eao/ Tytv* A\.enue 
H<?ono, CattioiMa 93702 1 Jan. 1980 



Gentlemen, 



I have a SEAXS 68KSC memory board giving me a total of 
20k of Piortory, 

I have th<? KF-68 Floppy Ciik with the Flex program, 

I have 4 SV/TBV5 in the MP-A board and use it with a 
MP-C and a HP-LA board for ttTTY with a oroi*r*m by 
Rich Kot* K9AR also h ave his microtime board th^t 
give me the time via ROT* 

I am thinking about getting rid of this system as at the 
ago of 70 the programing has been a little over my head 
pnd there i 3 no local help. 

Would accept any reasonable offer/ I am using the 
system with my ham station on RTTY. 




I have a SWTP 6800 computer that I r*ade from a kLt with 
sockets for all ICls, it consist of S/TP/l kit, with a 
AC-30, CT-61 terminal with CT-VK 9 inch monitor* 



JOHN P. TUCYXR 
Poet Office t*>x 2098 
J^redo , Toxaa 78040 
Xoveoeor 2. 1878 



ten Vllllaaa 
*C8* Micro Journal 
Post Office Box 84S 
Ulxaoo TN 37343 

Dear Sir, 

With tbe belief that ■ good Joh w*U dono deserve a to bo 
roco|tel£ed and publicised to further our hobVy, I an Bonding 
a copy of tbla letter to tho publlehers of Kilobaud, Byte, 
and '68' Micro Journal. If at all possible. 1 would like 
for each of them to n:tvo aono apace to the following aote: 

1 «u one of the very flrat purchasers of the TBC BASIC FOR 
0600 from TocJinlcal Syatoma Consul tan ta of Woat Lafayette, 
Indiana. WBVKR WAVE 1 HtCrlVtO 8fni (t^OPHHATlON AXP IIKLP 
fHOil A SUPPLIER AS 1 IIAVK FROM Tl:OIKtCAL SY3TFJ4S O0NSUI.T- 
AilTSI The dlek version t rocolved, one of the flrat sent, 
had a byte in error cauainK » malfunction Df auch function* 
aa MID), LCPT7. i'tc. An overly lontf iettor to than netted 
a prosipt roply — ny iilsc vcrelon occded ono i»yte cfcanttod 
which vas a taali ovon I oould aoeorapllah. Thon ono or ny 
nom l.ochnlcal UASIC pro($ras<a> uoder cor tain condillona, 
i*culd cause the UASIC to error out falaoly, This titse 1 
trlod a raero bualnoes-1 ike approach and aont alonx data lo 
support my questions { Including a caaaetto copy of the 
prog ran In «juoatlon). OncO vita 1p T9C aPvnt valuablo time 
In rcsearebiRC tho pmirwo and sent me a revised vcrston 
of tbc liASiCI They also seat a dlak< ! ) aakitiK that I aeod 
coplea of any furthor procraaia cauainK troublo with tho 
novoat vcrelon. Tlioro tie atlll a toioor bum, and once more 
TSC solved it promptly snd with dispatch I received a third 
voraloa of the UAfilC 1 had purchased. All of thts *>rk, It 
la to be reeionl>rred. wont into a vcrelon ibat I am sure is 
NOT their boat-aollor — 1 still uae SVTPCo minifloppy 
running undor mlnlFlo* -.- althou«h it la probable the fixee 
they sere writing were applicable to all versions, 
Co-operation such as haa i>een shown by tlio roepanelblo firm 
of Technical 3yetcois Conaultants is all too rare In this day 
of minimal performance (or even pure a cam}. Thoy should bo 
reeoklalzed publicly for their attltudo toward tho eustoa^r 
and tholr prldo la tltbtr liroducl. 

1 own sovoral vgrBiuitJt ui. JjA^tC but only two havu pruved to 
be or practical application* They are the old, vi<ry alow, 
but rollablo and accurate SlTTCo Mink OASIC tfcrBlon 9,0 and 
tho new TSC UASIC FOR £*0O. TliO latter la tho faatost of 
any UASIC 1 havo over aeon run on any system. fcveo before 
uelna tho built-in compiler and run-time packago (yes, they 
ire a part of tha UASIC ae furnished?) the interpreter sill 
outperform any truthful timings 1 havo seen of others, even 
thoao runntng on 780 systems at 4a*1x ahllo <*y Byaten pokoa 
along at 1 ail*. Ona muet only become accustomed to slightly 
dlfforoet modes of typing some vxprosslons. do In? a little 
more punctuating to gain a Croat deal more execution speed. 

It must bo a frightening cxpcrleneo to seo tho apeod at 
which this BASIC wtll execute on a 0800 ayatoro rurinlng at 

2 mils) 

Tooholcal Syatems Consul tanta have proved to bo a roliable 
firm with excellent products and J unhesltatlnjcly recosnend 
thtm te tho hobbyist looking for quality products at vory 
affordable prices. 



O. 



Thank you for your time, 



John P. Tuckor 



P. 3. 

Don, if you decide to bub Hub any of tbla snd It Is of s 
prtnt Quality suitable for your off-set process, pleaas tako 
your scissors to it and extract tho meaning from the Junk — 
although that may take a naJor re-wrllc tosteadt 

John 
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December 2<t9?9 
l?5fi Coactock Lane 
San Jose. Calif 

Dear Con Millie 

T worder If anyone of your roftdlnr audience ii Interacted lh Getting 
up a tPXX AMtcur Radio Intereat Troup over the mlr *' 

I have had »ch*du)ea over a*a*eirr radio with two **<?<? rarjiu iMteura 
in Auatralla for severe 1 yemrm. >e have been oxchanrlo* software for 
iSTV and KTTY, Cur *c>*«d\il«* are Pr id ay/Saturday evenirra iCailf, ) 
on £1.260 *h« or 2*,*£0 Khi at 0*iOO or 02 • 00 CKT. 

A few other *KC0 uner* have boen check ire In from other eountrie* 
(I.e. r*n«94 mnd t>* Zealand). I have written m larrte aaount of amateur 
radio software and huve beer ex chin* in* It with the anateura down under. 

I'm Sure Mono or your reideri have amateur radio software thoy alfht 
live to eachbnre or dirccuie over the air 7 



Toure truly 

Clay Abre«w$ (K*A£f>) 



i* 1 fclacori Ht, 
Madta?, «1e 0l4t>Vj 

or irli i^inx, >;ditur 
*'<•* Micro Ooureel 

)<jl* Ctalltl fie. 

r* fox 6t.V 
hlxav*> .% >7'J>3 

l^aer 1'0n r 

t^.fn » rr»p« of Mil. ;>.ora ■>.b« .«rcta,eu t 4 >C .oV> ►'« ra»4 eaia, 

I (i-iirUceu kin t Ui.t «J i eloek bo.rd ex clocX * Itttne to ilea 

Mi» »it<* uiikuMk ,«o #»«!■ orli^eaUy u l«Aa«. ia laaa* 10 of 

Z'Ui \t\ , fae axttcuod latie IftlU.lJJ! <Mlfca4 fe.TP* ^19) at tit tie* or 

tk« t^tt fuietloi. *wt after a ceil to • 'C oa * fti-i-dei ao*mat, corn 

*»* * iorra«tt*4 procedttra la kl UalJ tat feilOfinC KaadeJ. ffoap ratulalluaa 

19 WC far laa »arj ff.il <»ejH>n«T lima. Ta» facia bald* a«tU»E2^t» all 

tfca llntaila • • it«t foa tka uou£ r«OOi laOeaUC lha arlalaal ti«VC 

tlear for Uiua* ttachcar* . 
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B-J 1 


9aC 
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* ;k« ^aatinttfKa acaa ekm aa to mt :ata«.«r *4rli^l»» lo oktala tkla jut 
i». cf tlr»». Koy axas la< l-aa«lca*X i*»1 aa<aaa; 

i»oo rw w . i • if oe 

Nota tka( mt idv9 fcH IC tin* Tor Tantk^arK 1 la tlirtirait ta«a taat 1 
a.aj rtBll+MMiy it art««, 'aa eu: raat nt la tarract. 

lka ?#oola» altk taa Ur» fuaaUoa aatJ taa KfU/rfC la i hat taa »aaa a,«a«ie 
of taa luaatloa. la Uom • •a?«loa, ia Lakaa trao fat.of.Uaaa KaaoO - U 

• ■u aat ^ aa aVataa ta Cat ftaaital. To? a 4ClX ejeta*. taa J5T> fuaatloa 
aucsaai Ml-uI* ka aat la lOaatloaa 7tth aaJ 7> PC tlth l*« *..Mr.aat kala< 
la lutatloaa 7rT9 aa^ ?> F4 . TiiC vafuruad l.orfe lhai taia tl 1 oe coetactad 
U fuiuia raltaa.a af XBAoIC. 




R, ['»Dll.|H[ 



technical /y/tcm/ 
con/ultant/. inc. 



JafiMfv ■.':. |r ? a ' 



D^n ^HHiaai. 
J Sfl l nmro Journal 
Wllllaarv 9ata-C<FTv DUU1o» 
JO 1 5 ita*lll koad 



I enjoyed irta Cfianca to »peak with you on efca pAftr>a ya»tcre*y and 
appreciate /owr offer tt» l^fo^fl^ yo^r r*i*vr\ of Our update policy. 

Far ipFtwara pact*0** lUttftQ didar 1?5.00. th*r* U to gji i raW||t i l 
prubleai fUirig, rtowa«r, I J a pr^le*« El proparl^ r#portad «i o*nrf*ll* 
do vtipply patcKat to Individual h+m contact ui. 



For toflwar* pachaaat H*tI»hj. ovtr t^H.OO but vl Ihoul an oUtrad 

awlnteaance iclvdule, Hicai can be obtained, For a oatEod oF two mmhi 

aFler purchai« t th* cuttHMf may o*ta)fl tha latatt varOon of tha |t#(ka>}r 

Free of crtarga. To do 10 he kihI return tfce origin*! riftk alocro with 

proof oF flurcnaie, T«chni<al 5y* te»t Consul t*M* wtlt copy tKe lateil 

venlo* onto lh* dlih and return It. If t^e tuiitHci ha* *tmd ptrs%r\*ki)ti 

of 4 pacha^e for over IwO monthft. he may \i I 1 1 return Mt dials fur a rw** 

copy (alond wltn prOoF of purchatel kut mIII be charted A $10.00 handling 

F««. ThU paUcr applies only to correal lo*H rh«d« lo a periocular product. 

rkw v«r«loo* For a <*J r f o rCn i (K>5 or application «re noi con»«d«red an 
update and nuH ke f>urcheictf OutrF9ht. IF a uver docs f*>t wl%h to 

return fett ordinal dE«k, Technical %ytte*t CftMlfltaaHf will >en4 a new 

divk with tha lataat w^riion for a $^0-OQ cbame. io long *« the u»er 

«upplt*i proof of pwrchett- 

thotc ipfiwart pacxaqet olFered with a aailntananc* tcHedut* mfm 
covered a% tpttf H^i In that i»e F n tetwrnce aqrec^wni. Inete pollclet ar* 
lubjecl to chaifoe at any time wtthout notlcr. 

1 would alio I Fk« to wake a QuIcV poTnt about reporting profclo<i» 
Tcltpnpno call* are an cRt'ePvIv poor nnthod of rrporjlnq bog» In coap|#R 
«oFtware peckaqe\. Hlnetyfivc perceni of iuch caMi «r« a wiUf nT 
c Imp for both partlat. THr bc-*l Solution It 1« iKorowghW docuMat the 
proble* and HAIL II to o», ThU way wc have # hard copy of exactly whai 
It t4u»Inn the problem md If It rallc H*re, we have tcmrl^lnu concr«i« 
(O vork ^Ith. If one doe* call to report a bug. chance* are So *m 1 1 be 
told to document and ma) I it to ui. 



f*a n I r- 1 f ■ (Mrnfl.i 



Thts Firth 



Trenton Computer Festival 

TCF-80 



lOAHlndm 
SATl KDAV. I9lb 



A]»r4] l» ^ «U» I HMO 
i Tm:vr<>.\ 5iTATf: e <n I K<a: 



IIKVI In 41 l'?t 
M.YIr.W. tOlh 




fhapwr IkwldkMPt- WUm nerk«1 laiiaar < anvaae refad KaUhH 1m 

Suftill^ iimiL>nlu ifL-Ji Ihij^mti^ tfi>t<<i« . i -Lb j ipji , ntnl.ii,., I.htI,^ ^irrtliipf ik*r«t pruhi 

Aihri^'-I «fto%x (Ffii *)»*. ■!» iliMrh m I V x.'"' J d<"i«hnt». Siunki HhIki ii ► |jlai 




"*■' l r aaj_"T"^^ w ai i 





... T>lk> A Vr mliiiir^ feie^Mit l» JfT. PA. HU Jk l*H 

Mc<l Hil kaiLlhit H|*i1* mid ln - *P •» in^i np^ h ipp |,jma^ In f<i In l.it ).itLinii In. ■rtif rL.'HHP < nt^ 
ndarihi b<int|iiiHf fpiii*4i nnirtiinr ipdlip, %'!■ 

llitnrfrctK ofDoorPrizch • Otuiquvt SttliiKdny \l«U* 

for addlliiiM] lafDrrnaiu,* call (f79-771«^4H7 
AdlMluron M - SUxfcnta D» 
k» 3 



line ^i.v! aio Atmri 

rliMtHH.U.lJiirin - pnr-Hfil 
thf ba^bf tl !W;nd jtUi rhn 
ll^lKlw« t» Tf FTO, 
Siaw i '<nfk*r. Trrrum. \ .1 



SarVty 



1k»* l((» i l«f| l | 

trrktea^; T«ntwn S«*p. 
. C,tlt,1'nteVb*Nrt.(i 
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| COkiTRS. GCORClA. ^Q(fQ7 

1 404»*0,3-4S7Q 

I t»GAR n. PASS. PH. t>,, PftCSIOCNT 



t ?h, l*M 



Dos Vlllldan, UJltor 

*«•' Micro Jour nil 

1016 Until II K<ud 

r.o, Box 8*9 

lllMPti, Tamia*a>«p J7J4 J 

«.',.r Iknii 

I h»w fulluuwd Jack Ofydut'a "Crunch* ra' Cornier" vltt> a cm* tntwram » Tim In- 
atallaw/nl >it ihlm article l* Ihe Kvv^ubtr/Oeccofeer 1979 |a«i«r fea» wwrj>l 
problv«». One la ih»l Ibtr Tm/W prcJtram haa iha fol towing error*; 

on I too 10 - array ahould haw dJmartclon ft* i in>l 16; 

un line 5* * none SASl^'a will aivo an «-rror «m ar. ItiVoUd 
Kl Iff raft»>, e*4 will oat return a ft«U wlrinji. 
ii* a«*«aar4 Kara; 

on llha 80 - H(|J nhould be U<N> Jn cb» flrar Ivn «iaicrmecHa 
and XJHf <S*»7.I) «hovld be Kill fSf.N.O 

Dva Kt program appear* to b* correct , ami cjorn nut kin ihra* froblOios. Apparently, 
the Tfcfi/80 prutf-m wan fu>v«r tup tod. tlie other Oroblca la that $i*P 1 of lii* 
axplmaclca ol thr ellorliKi correspond* to lime 80 «jI tbo TftS/80 Prcmt*» and coo- 
ts In a the- vow irrror. 

5 Inftrcl t i 



t i\ 14K. 



bill Vudall 1/80 
J/OH ate* I nuin n_ y^ 
J J nor.! » nut, t a r»a 5944*' 



40p.JJ7.J0l5 

r 28. 1*79 



66 Ktcra Journnl 

PC dot 849 

MIR Kflalll Flood 

Hixnur., lemeaeee S714J 

Oas»r l>oni 

In mtolher Dite«pi la coMinur ay aubarrlpl io<i to 1h*> Wlcro Journal 

I would Ut«J to oubniL lhe» fallowlnc) rW for a fix. Nu» laproved NT -6,8 

hool program praaonltPl Iwlpa but In rail porfael. If a tun-mtuy prtwjrnm 

rlobboro lln »t%69 ViA J1 nay <x>1 hit C0*nciured properly to tdurl tfw> 

1771 controller otalua i»t 1ha» pImtI. 

Ihn rnllovlnr) all I cotrrcl thin problem I 

CUaWfC fqu laoie 

Clfl rOMRtC*) 



' ttili nil) heMp cum i 



f honq-upa. 






Bill Vodnll 



Pea«*»»er 31, l-»7«». 



Mr IXm ^Ultaiea Sr 
'66* Xlaro Journal 
SOkQ nVuOH »«o 

P, 0. «ox 649 

111 < ion, Tannaa«e« S7M3 



OJSa tMn( that «0U.16 be aT banaflt to u800 uaara wouU ba a -f^»ajted, 
al4a.tv-itd« altauifalon or tJC'a JTOLX awl a.'b'a U0i0» 41 ak operfifif, ay«t.ar fl , 



atith airvKaala or 4h»nr,lo»:; ttf^MMir* "rlttrn ru^ t*a« »ya^*a tu r nation am im 
attar, (feat paopla <ten'\. have aocaia to both MM«a. nnd unr* of 0>.r *vi'4» 
aren't r«Alli*r inou<^ with W>a otrvar %o t«aka Uve nta^iL'l anan'^j wT*.t»uV itlf. 
I I tape ^>u can pera'jada om of veur d^rrei^ondaflM to pA)vl<J» *n *?*iole to 
tna »6B* Loam Jauf r>al , 

»er* tr»ly you^a, 

XL^J3~ Uo — u^ 

A\ 111 *r k. iJailoti 

?.!.. I' 11 lend tna pr lotas drlvar U»».1ri< m aoon aa 1 &«* tha ?ow»r a.*pplv 
for wf oSCO raboXlt - the prlnarv ir)nOln^ of k^ir po>ar lr»naf«ra»r aborted 

outt 

Southwest Technical Products Carp 

?liw wna ea tdy 

«jn Aotania, I <■«• 3V10 



-r,r :aMijiatC- P^pvs ''eleiyp 



SVTPC Ii proud to anncmrvc* tn« 4«ai1«b^tty of Its 6809 K«»1dant 
Optlaizlmo A rentier. T^U ^steeblef hat bt>en used extensively for 
tn.hOMSe program- deneloonent and hat Oe^i a major lhtpro*en«rit over 
previously ««a11lb1e Products. The as*e<«t>1er Mas deseed fn>n t»e 
around up 10 f«CMlUte (noduS«r Iilock structured pro9 ronqi f nq , It 
Includes ««ny features that ess 1st m the rapid creatron of error Tree 
prograads with a ulninuc of erfor-t. The significant fraturos include 
arbitrary length syiaooH, crocedunes and dat* strecturcs. local «nd 
public dictionaries, miltlo^e prooran counters. automate branch 
opt location , nesteti library 1Ho inclusion, exhaustive error checking 
end much ftort. 

the asseebler runs on any SwfPC 6W9 dlsr based computer systH 
«1th at least 24X of <WM memory. Top progran disk contains the resident 
WW asseaftler complete with a synfcol table formatter overlay snd 
utility prograns to ccawert pet^en Mnary dls« flips and paper tat*. 
The ASJIW disk is available as cHMV f*»« »«• p<n*t incn FtEx» diskettes 
(please specify) for MO. 71 postpard In »he conllnental D.S. 



19BQ Wea^Tettcr 



a] 



As a« start a new year, we would like to brlnd everyone up to date on the 
latest products and ne« development*. 1*7? saw the introduction of our 6809 
computer systems and the rapid development of *e» software and peripherals to 
complement the system. In only about six months time a tremendous variety of 
software has Deeo introduced for this system, 

as «e go Into 1980. even «ort software Is becoming available for our 6809 
systems. UCSO Pascal is now available for the system. This form of Pascal is 
very popular In schools afld col leoes where portability of programs Is 
important. The first package of eopHcatlon programs to be offered 1s also now 
available. See the enclosed sheet for descriptions. In addition to this, we 
are now ready to release our ASM09 rHcro Assembler, fhls Ts probably the most 
advanced assembler on the market for the 6809 and anyone doing orograas in 
asseaabler will certainly aant a copy. 

The first shipments of our new douole.sidad 5 1/4 Inch disk drives alU be 
made this month. The *F~69 uses two of the new double-headed HooeT. Itt 
Siemens drives to give a total dist capacity of approximately 38« bytes. 
This makes it pOsslbla to use a saujM drive in many applications that were not 
practical previodsTy due to the limited amount of storage. 

Southwest Technical Products now has a contract to distribute Centronics 
printers with our systems. Vie wilt continue to mate the 0u^ Sprint 3 daisy 
wheel printer* available with our systers, but will no longer offer the 6S*0 
and the 8300 printers. Centronics has a ve/y large variety of printers mi 
Car, provide locaf service In many parts of the country. They will a Ho allay/ 
us to pais on to you a 00 day warranty oo their machines. Normal discounts 
will apply on an Centronics printers. 

1 am sure that most of you ere aware, by now mat we are putting #u $889 
computers In the same type cabinets. The surlier 6K and 56K Systems Have a 
new motherboard that allows use of our new dual 1/0 cards. The 'boilerplate* 
oneeighth inch alloy alum*** covers anm bottoms, as amis as the COOHng fan. 
a renow sundarrj items om these prmdwets. The Introdmxtion gf a 8809 Hi 
a^aln provides an inexpensive way for peooie to build up a system with alntmum 
initial Investment. 

The version of FLEX-9 now being shipped with all disk systems includes a 6809 
version of our ErtOM software for use with the *.!>•*. EPRQH programmer. Thr 6" 
version utility that allows y<* to irse the aew cleanlne dtits wit* your 
SJtttm. FtUt-t alio Includes four typct of prlnUr dr«««n for the various 
type* of printers that may afso be attached to the system. 

The last, new ttem is our new S-3? universal neaory card. This memory card 
mafcmt 1t possible to put together a system with exactly the amount, end 
EPROh/RtWHArl (Mature of memory that you nead. Z?H fP80Hs and pin 
compatible Wf end hOMs may be Interminad thruout the board in as small as 
m 01 acta. Thii it perfect for process cemtrot appl tcatie**. or sHuatioai 
where It is flanlrett* to have prOfrmms stored in W. tou arm free to buy t»* 
amoawit and mixture that you need, vp to the 32t byte capacity of the board. 

Southwest Technical Products Corporation 
219 aest Rhapsody 

San Antonio. Teaas ?B21h 

f*1?1 W4^>241 
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Applevalley Day School, Inc. 

Offering Our Own Business Software 
In SWTPC Disk Vsr. 3.0 



The user's Main connection with the system 1i through thi commend 
language, lhls H the yehlclo for Inputtfng commends to the system. It 
supports a wide variety of features including parameter passing. commend 
variables, control flow prlel lives, and various types or pane batching. 
Input to the commend U^vs^f m*y be fron the terminal or from any file 
(including other devices). This enables rtry complex comantf files to 
be created and run at will. 

The overall detlon of VnlFlEJr is geared toward the \trfr microcomputer 
systems. It tt but opinion that smel 1 syitem a deserve mall, compact 
operating system* (such is till) while larger system require much nor* 
sophistication. Me will continue to support REX one hundred percent 
Since the snail micro Is and will be the predominant system for quite 
some tine. UnfFlEX will be for the upcoming generation of 
elcroconpulers which support oasstve amounts of n*tn and secondary 
memory. It will be the operating system we will not only provide for 
the €809 but also «11 68000 based aachlnes. 



PROGRAMME* 
RICHARD a. CAGII 



1 1 103 Safleperk Lane 

Houston. To. 77089 

ri3/4fli.3S&© 




technical /y/tem/ 
corvultant/, inc. 



»•••• FLASK * 
Jenuery g. 



6609 TltX text Processing System 

As many of fOtt know, we are developing a new 6609 text processor 
which supports proportional spacing fon a character level) as 
well as all the other features of Qun* and Diablo type printers 
such as subscripts, superscript*, reverai line-feeds, etc. 
Unfortunately, it appears that it will be sow time before that 
package is completed. Due to this feet plus the extra** demand 
for s*t», we ire releasing a re s u ae version of «rr er*s#*t 6600 
Taxt Processing Spite*. Unlike mest of our ether 6606 products, 
ft is not pasiet0«i~1ndepe>tdent or reentrant. 

As Is our normal policy, there wt?l be no upgrade price If a 
customer purchases the currant 6609 teal processor now snd later 
wishes to BMreJMSe the proportional i peeing processor. One point 
that might be mmdi It t»et there will be no great advantage le 

the planned text processor If the customer dots not htvt a 
prlntsr with proportional spacing ability (such as the Qume or 
Olablo). 

The 6609 Text Processing System is available on S 1/4 or 6 Inch 

fit* disks only. Thera is no cassette version and too source 

listing Is not included. The oeckage ts pert number SP09-13 and 
retills for 160.00. 



Cmntltj 



Pries 



If you have any questions regarding this Item, give us a call at 
(317)463-2:50? or Tela* »«1«. 



II. Hardware fte«j1r«T»nts 

UnlFUX will require a system bssed on either (he «03 or 6B0OC. to 
attempt at a 6500 version will be made. The mainframe nust support 
extended addressing (a alnleun of 19 address lines) and sone form of 
memory segment management. The memory mapper must have the mlnleum 
ability of napping nenory segments no larger than 4k, AffeneWe In the 
cpu address space, in* operating system will support wwltlple napping 
registers as «e?1 as hardware nenory prelection schenes although neither 
Is a requirement. A minimum of 96K of memory is required. 

All system I/O devices must be Interrupt driven, Terminals may be run 
either fron separate ACfA lype controllers or through an I/O buffer 
processor. At least one eight Inch, single density floppy disk drive 
■trst be supported, rhe drive suit be controlled with a OHA, Interrupt 
producing controller. lhls drive will be used for program 
transportation and system booting. Any other disk controllers nay be 
added to the systbn bul they should be of the DMA variety. 

III. System Support 

The basic UnlFUX system will Include the operating $y$ tent, several 
systen utilities, a te«t editor, macro assembler, and system 
configuration programs. System maintenance will be available as an 
option. Each copy of UnlFlEX sold will Include a single cou license and 
will Kave a unique serial nwmfier, Any additional software purchased for 
the system will be required to have a matching serial nvnfctr for roper 
operation. Systen Maintenance, If purchased, wilt provide updates on 
eight Inch floppy diskette. Updates *11 1 consist of fTied 'bugs* as 
Mil at addad systen enhancements. Those not obte*n'n.j Maintenance will 
only be Informed of bugs for a period of 30 days. 

lhare is currently a wide variety of support software in the development 
Sieges to run under UMFLEk. These Include it compiler Pascal , reel 
Processing system, a oebwS package, and |AJtC incremental compiler wfuch 
Is conpitlble with our Extended 8ASIC. Ha ny other program ire being 
considered, including FORTRAN, RPG/1I. and a data base management 
system. 

IV. final COsewfits 



Me will not claim that unlFLfX Is the 'ultimate' operating system. 



It 



tt impossible to create a program lucn as an operetlng systen with which 

that tfnlrLEl does reprstent 



no CMP t4t> find fault, we do feel* 

the state-of-the-art In operating systems and Incorporates II Mf^f 
Marge systen* features as Is practical without losing the friendliness 
of the smaller system. 



CQMPITTCRWARE 
1512 Enemies B*d 

ewCuerrai CAUf0ftn*A9«»* 
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Technical Systems Consultants. Inc. 

technical /y/tenrv 
corvultant/, inc. 



The UnlFIEX Operating System 

I. General Information 

Technical Systems Consultants Irvc», 1s in the final development ste9*e 
of thg new oparatlng system, UnlFlEx (OMFLEX Is a trademark of 
Technical Systems Consultants Inc.). The lysten'i design Aas been 
Influenced primarily by two other operating systems. fXCl" and \»ll m 
{UKIX Is a tredmnart or jail LaooratorUsJ. UnlFUX rateltrs the 
flexibility and ease of use of FUX whtla incorperiting tone of the 
widely accepted structures of UNIX. 

UnlFLt*. 1> e true nuTtl -tasking, multi-user operating syttem. It 
supports a h1«rerchtca1 file system allowing file sTns up to one 
billion bytes »ni dlsX capacities of over eiflht bll Hon bytes. All 
file* are fuTly protected, A user may read, write, or execute protect 
files on an Individual basis. All system I/O Is device Independent 
since I/O filler* and files trw treated in m Identical fashion. Any 
combination of interrupt driven devices may be attached to the system. 
a sample system comfigwret 1 en night tare a ninety megabyte die*, e 
thirty megabyte disk, inm eight Tnch t\ apples, a paralleT driven 
printer, and six user terminals. Any running task n*y 1a1t1ete another 
task In an asynchronous manner. Inter-task communication Is alto 
supported. Taik swapping may take piece on those ty stoma Incorporating 
an appropriate swapping device. In real time applications, *>ere 
swapping my be detrimental. It Is possible to lock a task In main 
memory. 



Don William* 
'69 Micro Journal 
3016 Hamill toad 
Hixeon, Tmnn. 37^4 3 



Ae you know Coapvtoivere haa been developing a very extenalva 
ltbrary of 6600/6609 application eoftwace for the hema, snail 
buelneea, and coieeiarcial uaer, We currently hove implemented 
Account* IWceivable, Account* Payable, Payroll/ inventory Control, 
General ledger. Caeh Plow. Mailing System^ Real Estate Package, 
and a TUDdkwo File O^anlxer/neportlng syatem. Of course, the 
future will introduce many more paokagee currently in work. 

To date w«t hove limited our application* to van with the Smoke 
Signal Broadcasting COS. However, we hava been approached by 
many FLXX antra who would like to uae our software an wall, we 
ere therefore considering undertaking the project of creating 
rutx compatible packages. 

Mm would very much appreciate the response of your reads r a who 
•my have an interest in aealng our aoftwar* offered In a PLCX 
compatible format. Our declelon on this project wilt depend 
largely on the demand from the 6600/6609 market place (both user 
and dealer] In the form of lettere, lnqulriea, and committnmnta. 

Kay t again thank you and your team at *68 Micro Journal for 
providing this medio of forum and exchange to ths 6 8 XX community. 

sincerely 



sincerity, 

FSIll 5aarby / 

Ccaaputorwai-e 

TLEK is ths trademark of TSC. 
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PASCAL COMPILER FOR THE 6800 



Dynoeoft Systems hat incroduc«d • complete PASCAL prograo 
development ays tea for the 6900 microprocessor. 0VMAS0PT 
PASCAL 19 a subset of standard PASCAL Intended for snail and 
nedlun-tiJiod cassette -baaed systome which cannot support full- 
acale imp Ismentst tons auch aa UCSD PASCAL. It Include! moat of 
the control structures of standard PASCAL and aupporta the data 
typea P3AR, INTEGER, boolean , scalar , aubronge, pointer and ARRAY > 
Language exComlono Include EXTERN (oAcHlno language) PBDCfiDURJU 
and FUUCTlOtfa. LINK to other PASCAL progress and an optional 
OlHERWtSt clouae on the CASE statement. 

Tho one-paaa compiler produces fast, relocatable* ROtfab le 
pseudo-coda which roqulrea only a 1300 byte interpreter to execute, 
leaking it possible CO run snail programs In am Uttlo as 2K by tee. 
The entira system, which lncludea the compiler, interpreter* a 
lino-oriented editor, and ayaten aupervlaor , occupiea tea* than 
SIC by tea and will coop lie a 2000 choracter source program in 12K 
bytea of metaory. 

The ayacen la designed to operate on casoet to-based eye teas 
ouch es the SU1PC 6800 whleh uio MIXBUC, SMTBUC. or equivalent 
■opitora* but all lf$ calla ore mode through coupon point* in 
the intcrprotor. making It olmplo to adopt for «os t other config- 
uration*. The atandard version requirea contiguous HAM starting 
at $0000 but le can be supplied on opeelal order in ROMablo form 
starting at $0000. A croaa -compiler la also available which rune 
on the CDC CV68R aorlea of conputera under PASCAt. 6000. version 3- 

Price for the basic cassette version, with manual, is $35,00. 
Por further Information^ contsct Dynssoft Systems, P.O. Box 51. 
Windsor Junction, U.S., Canada BON 2V0. 
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Gr*»t Plain* Computer Company, Inc. 



PO Bo»gifr IcUhoFJh ItWmlUSQI 



ACCffllKTS RECEIVABLE 

for the FLftX OPERATING SVSTfiH 

GREAT PLAJKS COMPUTER CO has converted the Osborne Accounts 
Receivable program to operate under the Technical Systeas 
Consultants *FLBf > Operating System. Thm TAW snd SpUTtWBST 
TECHNICAL PRODUCTS owners *ko love FLEX now have available a. 
powerful, complete jalnlcoaputor quality ACCOUNTS R8CU2VA9LB 
package, lhe pro-raw* were rewritten In TSC's *\8ASIC a«D 
operste using keyed raodoa accosa files (ISAM). lhe systeo is 
fast and f^rglvlnR. 

The ACCOUNTS RECEIVABLE package contains three features not 
Included in the origin? I Osborne or In roost conversions. 

1. A keyed random access file iy*toa ([SAtf) Maintains the 
sneed and power of the original \j\\tG mint Computer version. 

2. The user if always 'backed up' aialnst failure because the 
System issues *ten*by-»tep prompts. Bscku can be skipped 
if the user explicitly instructs the system to bypxss it. 

J, Password protection was extended to help prevent 
unauthorized access to the Accounts Receivable procrams and 
data files. 



SCHEDULE 

ACC0UU7S RECfilVAHLfi 

CENTRAL LEDCBll 

ACCOUNTS PAYABLE 

PAYROLL 

COST ACCOUNTING for PAYROLL 



now shipping 

JAM 31*19 31 (now accept Ins orders) 

avoiloble PUB 24.1P90 

■stinated MAR 51.1380 

estimated Apri) 30,l*>*n 



Each ef the above & program* is priced the sane: 



Complied program 


i ion. 


Source program 


S 300. 


License foe 


y<noo. 



(single roach 1 no end U5flr3 

(single user) 

(non exclusive dealer) 



NEW PR00UCT 

For the 6809 user who has applications programs 
running under the SWTPC BASIC version 3*5 and 
needs time to changeover to newer BASIC formats, 
Omnltronlcs Inc., 1897 Rt. 33, Concord Sq, 
Hamilton Sq, NJ 08690, announces a completely 
source compatible BASIC-0935 running on all 6809 
S50 bus computers, running FLEX". This version 
will accept most all SWTPC BASIC disk versions 
without modification. 

No manual Is Included. It Is assumed that all 
users have the original SWTPC manual but Included 
with BASIC-0935 Is Instructions for the 
extensions to the standard SWTPC BASIC. The 
extensions Include: Complete ERROR trapping, 
AUTOmatic line number insertions, renumbering 
(very fast) of line numbers, SET - RESET, these 
commands turn on and off graphics pixels <X,Y 
addressable terminal), double variables, string 
variables such as a$-z$ may be legally DIM'ed, 
run binary programs from BASIC-0935 (example: 
+TTYSET PS=N - set pause off In FLEX"), I/O has 
been configured to a more standard - no parity, I 
stop bit, 8 data bits, AC I A assumed on control 
port at $E004 (can be changed to your control 
port address), ERROR trapping Includes new error 
number (37) Indicating binary program Invoked by 
+ operator, was not found on the disk. 

BASIC-0935 runs approximately 401 faster and 
honors FLEX" 'End of Memory' pointers. It Is 
monitor Independent requiring only 09 FLEX". 

BASIC-0935 Is optimized 6809 code, running In 
slightly over t2K of memory and Is not 
relocatable. EPROM (27!6) version are available 
on special order, at any memory location 
required. 

Additional enhancements are being developed and 
will be announced when completely debugged, 
updates will be available at a modest cost. 
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Source code will be sold to qualified Dealers and OEM coeipnnles. 
Software a^rcenonts will be «enr for your signature upon request. 

Payment conditions ore: 

CASH *-- C.O.D. --- Previously approved crodlt Application 



JPC PRODUCTS FOR 

6800 



COMPUTERS 




High Performance Cassette Interface 

• FAST - 4600 Baud Loads 4K in 8 Seconds! 

• R€ LIABLE • Error Rate Less Than 1 in 10* Bytes 

• CONVENIENT , Plugs Directly Into The SWTPC. 

• PLUS • A Fully Buffered 8 Bit Output Port Provided 

• LOW COST - $59.95 Fq r Complete Kn 

• OPTIONAL . CFM'3 File Manager 

Manual b Listing $19 95 
I For Cassette Add I $ 6 95 



TERMS CASH MC or VISA SrnDP-ng A Having i< 1)0 



'JPC products 



Order Phone 1505! 294-4623 
P.O. Box 5615 
Albuquerque, N,M. 87186 
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Inventory Problems? 



Are you hovlng trouble keeping the right nuts 
ond bolts in stock? Since even o simple mistoke con 
cost you rime ond money, o good inventory system 
should do more thon just count ports. It should tell 
you exoctly whot you need, when you need it. 
where to get it. ond how much it will cost. 

The MSi Inventory System Seven enobles you to 
mointoin o versotile doro bose for controlling 
inventory, it lists port number, description, quontiry 
on hond. vendor, cost, selling price, optionol 
pricing, usoge levels for previous month, present 
month, ond yeor-ro-dote, ond much more. 

When quontiry on hond items reoch minimum 
levels, the System Seven complies on outomotic 
reorder list. This list con be generoted by spe- 
cific vendor os well os o complete listing of 
oil moteriols to be ordered. 

In oddition to the item listing, the In- 
ventory System Seven "bill of moteriols" 
provides you with o complete inventory 
of items used in the monufocture of subossemblies 
ond complete products. It olso contoins other cost 
items such os lobor costs, totol row moteriols costs. 
ond miscellaneous costs. 

The MSI Inventory System Seven is built around 
the versatile MSI 6800A Computer with 56K of 
RAM. An integral dual mini-floppy memory gives 
you on odditionol 630K of memory and makes 



inventory control fast and efficient. The System 
Seven will interface with any industry standard CRT. 
and you hove the option of both a 'daisy wheel" 
word processor for high quality document prepa- 
ration and o dot matrix printer for high speed 
producrion. 

The System Seven can be expanded to handle 
oil your dota processing needs or you con select 
one of nine other MSI systems now ovoiloble 
for business, industrial, scientific, educational, and 
personal opplicorlons. 

If you need more thon just o nuts and bolts 
inventory system, we hove more informa- 
tion obouf how the Inventory 
System Seven con solve your pro- 
blems economically. 





MSI Inventory System Seven 



midwest Scientific 

220 W. Cedar. Olathe. Kansas 66061.(913)764-3273 
TWX910 749 6403 (MSI OLAT), TELEX 42525 (MSI ACHAT) 
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z A Complete 

Library of M6800 
System Software ! 




These books will help you code, assem- 
ble, link, load, relocate, and debug 

your 6800 assembly language programs. Each book includes complete 
source code, objecl code in hexadecimal format, and machine readable 
(PAPERBYTE*) bar code listings, lo make entering and modifying the 
programs as easy as possible. 



Tracer: A 6800 Debugging Program is for the programmer looking for 
good debugging software. Tracer features single step execution using 
dynamic break points, register examination and modification, and 
memory examination and modification. This book includes detailed 
Tracer program notes and a reprint of 'Jack and the Machine Debug" 
(from the December 1977 issue of BYTE magazine). 
ISBN 0-931718-02-3 Pages: 24 Price: $6 
Authors: Robert D. Crappel & Jack E. Hemenway 

MONDEB: An Advanced M6800 Monitor-Debugger has all the 
general features of Motorola's M1KBUC monitor as well as numerous 
other capabilities. Some of the command capabilities of MONDEB in- 
clude displaying and setting the contents of registers, setting interrupts 
for debugging, testing a programmable memory range for bad 
memory locations, changing the display and input base of numbers, 
displaying the contents of memory, searching for a specified string, 
copying a range of bytes from one location in memory to another, and 
defining the location to which control will transfer upon receipt of an 
interrupt. 
ISBN 0-931716-06-4 Author; Don Peters Pages: 88 Price: $S 



KA6800ML: An M6800 Relocatable Macro Assembler is a two pass 
assembler for the Motorola 6800 microprocessor. The Assembler can 
produce a program listing, a sorted Symbol 
Table listing and relocatable object code. The ob- 
ject code is loaded and linked with other 
assembled modules using the Linking Loader 
UNK68. There is a complete desciption of the 
6800 Assembly language and its components. 
Each major routine of the Assembler is described 
in detail, complete with flow charts and a cross 
reference showing all calling and callcd-by 
routines, pointers, flags, and temporary 
variables. In addition, details on interfacing and 
using the Assembler and error messages 
generated by the Assembler are included. This 
book provides the necessary background for 
coding programs in the 6800 assembly language, 
and for understanding innermost operations of 
the Assembler. 
ISBN 0-931718-10-4 
Author: Jack E. Hemenway 
Pages: 184 Price: $25 



LINK68: An M6800 Linking Loader is a one pass linking loader which 
allows separately translated relocatable object modules to be loaded 
and linked together to form a single executable load module, and to 
relocate modules in memory. It produces a load map and a load 
module in Motorola MIKBUG loader format. This book provides 
everything neces&aiy for the user to easily learn about the system, in- 
cluding a detailed description of the major routines of the Linking 
Loader, including flow charts. While implementing the system, the 
user has an opportunity to learn about the nature of linking loader 
design as well as simply acquiring a useful software tool. 
ISBN 0-931718 O9-0 

Authors: Robert D. Crappel & jack E. Hemenway 
Pages: 72 Price: $8 



Tiny Assembler 6800, Version 3.1 is a small (4 K) but sophisticated 
and useful assembler for a large subset of the Motorola 6800 assembly 
language. The book includes detailed notes on the design and im- 
plementation of Version 3.0 of the assembler, a complete description 
of the enhancements upgrading the Tiny Assembler to Version 3.1, an 
updated user's guide, and complete listings for both versions, making 
this book the most complete documentation possible for Jack 
Emmerich's Tiny Assembler. 
ISBN 0-931718-08.2 Pages: 80 Price: $9 
Author: jack Emmerichs 



Please send 



copies of RA6800ML: An M680D Relocaubk Macro Awmklfr 

cop** of LINK68: An M680D Linking Loader 

_ copies of Tracer; A 6800 Otfeugging Program 

_ copies of MONOEBc An Advanced M6800 Monilor-Qebugjter 

__ copies of Tiny Assembler 6600, Version 3. 1 



Name 



Title 



Company 



Si reel 



City Stale Province 

Check enclosed in the amount of S 

Bill Visa D Bill Master Charge 
Card No* Exp. Date _ 



Code 



B30 



Add 60c per book to cover postage and handling. 

1VTE 

I0MS 



70 Main Street Peterborough NH 03458 
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DIGITAL 

%SER VI CE a 
DESIGN 
k P.O. BOX 741 

' NEWARK, OHIO 43055 
Phone (614) 366 6314 




DSD P/R-32K $27.00 

32K or 16K EPROM & RAM memory card. 
2716 2K x 8 or 2758 1K x 8 5V only EPROMS. 
TMS4016 2Kx8orMK4118 1Kx85VRAMS. 
Up to 4 independent addressed 8K blocks. Dip 
switch or jumper selected. Size 9" x 5 1 /2" 



9 [iSttt 





DSD 2114-16K $27.00 

Full Static 1 6K Ram memory card designed to 
use the 21 14 or TMS 4045 1 024 x 4 Static Ram, 
The card has two independent addressed 8K 
memory blocks. Card size 9" x SVi", Power 
requirements 7-8V unreg. @ 3.5A. 

DSD U P 8255M $14.00 

Universal parallel interface card with wire wrap 
area using INTEL'S 8255 parallel peripheral 
interface chip. 24 programmable I/O lines. 
(Three 8 bit Ports or Two 8 bit Ports with hand- 
shaking) Card size 5¥z" x 5" Standard SS-50 30 
pin I/O BUS. 5V only. 

Cards are bare with data and edge connector. 
Ohio residents add 4 1 /2% sales tax. 



*6847 Color Graphic card in design* 



MULTI-USER ON A 56K 6809 

Support four totally independent terminals with one computer 
Each terminal has access to the services you need most in 
your ctassfDom or Justness 



COMMON PILOT- me boat CAi system m tt» world. u»M many 
alicm wtwb oampJtnr lew tltaiop** ev 



STXJC&ST BASIC-r«l rwntwa. Itftano. mnm.rtn*. toopt, 
DuUrxiinm. and rotten tMk lib axs& 

SCREEN-OflENTED EDTTOR-**iir»dwciiyt*a*r 
tytung .jgeil lnii, md d wWing L jjw iui tor 



MP N calctfalor bonrd, dual 
h*M MP -Swtali 



SwTPC/OB 



PC rt» tint rfmer 6609), K 

f towv rtnsKft toihgr tolenftto 
ore b kig SWTPC CT- 82 Urmi 



S6K. 



$2S000«in^eccCy ispocifyl 5-<*8 ) 
(q^ntrty cfecufts ftvsJIoMo) 



IOOPI 

145 N Nugum 
JWim bland vtoshtnaton 88262 



6800 PFISCRL 

DVNRSOFT PRSCRl 15 o cosseite bosed 
PRSCRl subset designed to run on most 6800 
systems wtth 1 2K or more of memory. 
DYNRSOFT PRSCRl includes most of the controi 
structures of stondord PRSCRl including IF TH€N€IS€. 
CnS£OfOTH€flWlS£ UUHI16 DO, REPORT- UNTIL FOR- 
TO/DOUJNTO DO. and recursive PFKX€0UR€'s ond 
FUNCTION'S It supports the doto types INT6G6A. 
CHRR, 600L6RN. scolor (userdehned). subrange, 
pointer ond RRRRV It is omit oround o one poss 
compiler which produces fost. compoct p<ode ond 
comes complete with o hne oriented text editor, p- 
code interpreter, ond progrom 5RV£ ond LORD 
routines The uuhole system resides in less thon BH 
ond isolsoovoiloble in ROM. 
Ihe cossette version is priced ot $35 plus $3 for 
postage ond hondlino,. Sotisfoction guaranteed 



WW 



P. Q BOX 51 

WINDSOR JCT..N.S 

CRNRDR G0M 2V0 

(902)8612202 
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Build Yonr Own 2708 Programmer!! 

HERE'S BOW: 



O 
O 

*r 

CM 

i 
CM 

O) 

i 

r^ 
o 

CM 
CD 

< 

O 

DC 

< 



LU 
Q 




y *v i-tn i mit(» vtmmmm 

1 | I *L i, *tL1TWU ili HHI 

-W L_ */ ^ ill CtM-WMiii^ 

X Ul r \%Lt» PIN 14* 1 9 



c« im **?*»«» »«tv 



And here's the wire wrap board to build It on. The Universal I/O Board has 
space for a 40-pln wire wrap socket for any of Motorola's 40 or 24 pin 
interface chips; data and control lines are connected to appropriate edge 
connector pins. All other bus connections are brought out to a 16 pin socket 
pad. UK): $24.95 

Software? A stripped down version of our U2708 Utility program was 
published in Dr. Dobb's Journal of Computer Calisthenics & Orthodontia, 
February issue, #32. Or the complete version of U2708 is available in the 
B-08 Owner's Manual for only $10.00. 




BUT 



^ if you're not a dyed in the wool wltewrapper and 
1 _ would like to purchase 



The Seal Thin g for 

Assembled, Tested, Burned In and 



I © HEADY TO CO © 
*0 GOTCHA <Sm 



COVERED 




B-08 Eprom Programmer $99.95 
U2708 Software In Eprom $29.95 
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CURSOR/SCREEN EDITING IS HERE FOR THE SS-50 ! 

Research conducted toy a reliable source (MY WIFE] indicates thai you spend more time iookln9 at your CURSOR than your own FAMI- 
LY? Don't you think It's about tJme you used the video board and the cursor which cost you ?ood money for sometnlng other than a 
poor excuse for not looking at your family?* 

The unique SCREDITOR CURSOR BASED SCREEN EOITING SYSTEM is just what you need to make your hardware workl Take a 
look at a few of the features of the SCREDITOR and see what you're missing — 



•EVERYTHING HAPPENS ON THE SCREEN YOU 

SEE WHAT IS HAPPENING AS IT HAPPENS? 

♦INSERT CHARACTERS, WORDS, LINES OR EVEN 
OTHER FILES, AND WATCH IT AS IT HAPPENS — 
RIGHT ON THE SCREENI 

• FILE SIZE IS ONLY LIMITED BY DISC SPACE! 

•PRINT COMMAND PROVIDES HARDCOPY WITH AD- 
JUSTABLE MARGIN TO MATCH YOUR PRINTER! 

♦AUDIBLE FEEDBACK THROUGH A USER^SUPPLIED 
MEWTECH BOARD SOUNDS KEYSTROKES AND EDIT— 
MESSAGES AS THEY OCCUR! 

•SELECTABLE TEXT MODE ALLOWS CONTINUOUS 
TYPING WITHOUT CONCERN FOR MARGINS! 



•FULLY UTILIZES THE FLEXIBILITY AVAILABLE 
ONLY IN A MEMORY MAPPED VIDEO DISPLAY! 

• MOVE LINES AND PARAGRAPHS FROM PLACE TO 
PLACE IN THE FILE YOU ARE EDITING EVEN BE* 
YOND THE BLOCK IN MEMORY! 

•SET, DISPLAY. CLEAR AND USE TABS LtKE A TYPE- 
WRITER! 

• FINO ANO CHANGE COMMANDS WAIT TO BE VERI- 
FIED TO HELP STAMP OUT ERRORSI 

• IMPORTANT INFORMATION SUCH AS LUME. COLUMN, 
MOOE, ETC. ... IS CONTINUOUSLY DISPLAYED AND 
UPDATED ON THE SCREEN! 

•EDITING OPERATIONS ARE CURSOR— ORIENTED. 
THE CURSOR POINTS TO WHERE THE ACTION IS! 



The features go on and onl With FOURTEEN major commands, TWO edit modes, TWO major file Handling modes and TWENTY-TWO 
screen operators, the SCREDITOR olfers a level of control and convenience never before available to users of the SS— 50 buss. 

Order your copy of the SCREDITOR for 16 x 64 displays (such as the Thomas Instrumentation Board) OR for 24 x 80 displays (such 
as SSB VOB-1] to run under SSB DOS68.51X today! To place your order, call Or write — 



BE SURE tc specify the version 
desired when ordering 



ALFORD AND ASSOCIATES 

P. O, BOX 6743 

RICHMOND, VA. 23230 

804.3293906 



$99.95 



Va, residents add 4%, 



VISA and M. C. accepted graciously. Sorry, no COD's. Shipment is normally within three days of receipt of order unless by check. 
6B09 version available soon for SSB's 6B09 DOS. 



J PC PRODUCTS FOR 

6800 



COMPUTERS 




16 CHANNEL A/D BOARD 

• 8 6IT DATA 

• SOFTWARE CONTROLLED GAIN 

• 3300 SAMPLES PER SECOND 

• t 07% ACCURACY 

COMPLETE KIT: AD-16 $69.95 



Terms: Cash, MC or Visa; Shipping Cr Handling $3.00 




Order Phone <505) 294-4623 
P.O. Box 5615 
Albuquerque, N.rVI. 87185 



Model EP-2A-88 

EPROM Programmer 




Fast as Jackrabblts . . . Well, almost 1 

In Australia, two rabbits can reproduce over 13 million olbpnncj in 
3 years at 105 seconds per 27l(> the EP-2A-88 can reprod ce 
l.TOJJhO EPROMS in 3 years Single push button control, the 
EP-2A-88 checks if EPROMS are erased, programs and verifies. 
It also checks for defective EPROMS. 

Two basic m dels are available The EP 2A *1H I will accept Copy 
(CM) modules for the 27SH- and 2716 EPROMS The EP ZA-88-2 
will accept copy modules lor the 2716. 2732 and TMS 2532 
EPROMS Pawer requirements are 115 VAC 50 6(1 Hertz ai 15 
wails 

Pan N<< tH'M-nptiuft ytitr 

Ef ■ 2A KH I £ fHOM I* KjKimittor MT*> ( 11 1 

ET 'ZA KX 'I tPftOM to* *9t<ui>nwt Mm\ 

CM 5(i C<*VMoclMkfnr27lr> MS£tlfc LMtUMS JJJiim 

CM7»i Copy Moduk for 27!*U1<OMS 2b W 

CM 2" CfipvMixlultfforrcttEl'MOMS 2&IXI 

CM * i CupyMixlulcl.KTMSi&^EJ'KCJMS 251*1 



Won Standout VbJiac|e Option l22(»v 240 v KKivl 



\bit\ 



Optimal Technology, Inc. 

Blue Wood 127. Earlysvftlle, Virginia 22936 
Phone (604) 973-5462 
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DIGITAL RESEARCH COMPUTERS 

(214) 494-1505 



16K EPROM CARD-S 100 BUSS 




FIRST TIME OFFERED! 
BLANK PC BOARD - $28 



USES 2708s! 



Thousands of personal and business systems around the world 
use this board with complete satisfaction Puts 16K of sohware 
on line at ALL TIMES! Kil features a lop quality soldermasked and 
silk-screened PC board and first run parls and sockets Any 
number of EPROM locations may be disabled to avoid any 
memory conflicts. Fully bulfered and has WAIT STATE 

capabilities 

ASSEMBLED 



OUR 150 NS 270ft S 
ARE $e 95 EA WITH 
PURCHASE OF KIT 



AND FULLY TESTED 
ADD 125 



16K STATIC RAM KIT-S 100 BUSS 

price cum 



*259 



KIT 



.■■■ii ii i i ■■ ■■■■■ 




for imh/ 

AD D $25 



KIT FEATURES - 

I AddmwiWo «i iQur «p rftki 4K fltocm 

t ON BOAAO DANK SELECT circuitry (Cio- 

mcrmcoSlorMrj^l Allow* up la fit?K on Una* 

3 U*o>2H4 M&0NS) 4K Sfclte Ram* 

4 ON BOARD SELECTABLE WAiT STATES 

•ilk Kt nr»od ioyom Goto pitted contact hooara 
A« l<tt r e«» »n<j dflla FHW* 1U»V buiP0rC<i 
7 K«l include* ALL pfl<t» «»V* tot*** 
* PHANTOM ii tumpored lo PIN 67 
9 LOW POwt* t»n<kt» I 5 imp* TYPICAL 'roro 
ItKt »6 Von But! 

10 8|l»nk PC &dfti4 ear» be POtH>to«e<I «• *ny 
ntijllipFa«r 4K 




BLANK PC BOARD W/DATA-S33 
LOW PROFILE SOCKET SET-S12 

SUPPORT ICS & CAPS $19.95 
ASSEMBLED & TESTED-AOD $30 



OUR #1 SELLING 
RAM BOARDl 



PROC. TECH. OUITS THE MICROPROCESSOR BUSINESS? 
FACTORY CLOSE OUT - SPECIAL PURCHASE! 
16KRA 

amic Ram Board 



16ICV/Sllllyaamic 



We purchased Ihe remaining Invenfccy (JEff's rf^p^i 16K Ram 
Board when they recently closed thi?irt^anfD#'t r#ss Ihe boatl 
These are brand new. fully tested ASSEMBnTOai^ ready logo 
All are sold with our standard 90 day limited warranty" 
Orifl. $429 each! 72 Page Full Manual. Included Freer 



Z-80 PROGRAMMING MANUAL 

By mOSTEK. or ZILOG The most detailed explanation ever on lha 
working of the Z-flO CPU CHIPS Al least one full page on each ol ihe 15B 
Z-BO instructions A mutt reference manual tor any user ol the Z-80 900 
pages $12.95 



cl LOW POWER ~ 250NS 8 FOR 

sM-*' 2114 RAM SALE! sss 

4K STATIC RAM'S MAJOR BRAND. NEW PARTS 
These ere the most sought alter 21 I4*s LOW POWER and 25QNS FAST 
SPECIAL SALE: $7" ea. or S For SSS 



8K LOW POWER RAM KIT S 100 BUSS 



SALE 







$ 119 5 K ° 



21L02 
(450 NS RAMS!) 
Thousands of computer systems rely on this rugged* work horse, 
RAM board Designed for error*free. NO HASSLE, systems use 

Blank PC Board w/Documenlalion 

$29.95 

Low Profile Sockei Set 13.50 



ASSEMBLED AND FULLY 

BURNED IN ADD $30 



ALL ASSEMBLED BOARDS 
ARE TESTED AT 4MH2, 



Support tC's ITTL & Regulators! 

$9.75 
Bypass CAP's (Disc & Tantalums) 

$4.50 



16K STATIC RAM SS-50 BUSS 



PRICE CUT! 



Digital Research Computers 

9 - <OF TEXAS) ' 

P.O. BOX 401565 • GARLAND, TEXAS 75040 • (214) 494*1505 



$ 249., T 



<* 't*V --- ■ -*. --■■ ■ 

1I1IIEIE11III1II 

N * t- y- y r * - 

llllllllllllllll 



FULLY STATIC 

AT DYNAMIC 

PRICES 




FOR SWTPC 
6800 BUSS! 



ASSEMBLED AND 
TESTED - S30 



KIT FEATURES 

i Addro«««t)ie on tOK Bour\da«#» 

2 Uhi ?H4 Static Ram 

3 Run* ii Full Speed 

4 Double sided PC Booid SoJdor ma»k 
wHt iJlk fcreenodiayeut Gold l\fiQ+n 

5 AH Purl •, and SocWrxa mcfixltjC 

fl low Power Undcf i 5 Amp» Typical 



BLANK PC BOARD- $26 COMPLETE SOCKET SET- 
SUPPORT ICS AND CAPS-$19.95 



$12 



IPertecl lor 
OEM i 



S-100 Z80 CPU CARD 



*159 



95 



WIRED! 

NOT A KIT! 



4 MHZ 




ASSEMBLED AND TESTED* READY TO USE! Over 3 yams ol design 
elfons were required 1o produce a TRUE S-100 Z60 CPU al a genuinely 

f'Xk"™' brand newi 

* ? or 4 MHZ Opo'ulum * Gtawfitot MWfllTE w no (font p*n*1 r^quirfjo 
# JuntP on fffi caPflNJiiy * «MO Stgnali trntilalati Fm S-100 ttmpilflbHitv 
# Ton Oueiily PCD 5Hk Scrimnml 5oI*n MutttMi Qiild Plllrxd Cdrldrl Finoeri 



NEW! G.I. COMPUTER SOUND CHIP 

AY 3-89 1 As featured In July. 1979 BYTE! A fanlasliCally powerful Sound 
& Music Generator Ported lor use wilh any 8 Bit MU roprocessor 
Conlams 3 Tone Channels. Notse Generator. 3 Channels ol Amplitude 
ConlroL 16 Bit Envelope Period Conlrol. 2-6 But Parallel /O 3DIOA 
Converters, plus much more 1 All In one 40 Pin DIP Super oat. y to interlace 
lo Ihe S-100 or other busses 
SPECIAL OFFER: £14.95 each Add S3 (or 64 page Dalt. Manual 



TERMS: Add $1 00 postage we Pay balance Otdws undur $15 add 7M 
handling No C O D We accept V*sa and MesteiCharge Te» Re* add 9% 
Tax Foreign ordeis (except Camida) add 20% PAH 90 Dav Money Back 
Guarantee on all items 



NOT ASSOCIATED WITH DIGITAL RESEARCH OF CALIFORNIA. THE SUPPLIERS OF CPM SOFTWARE. 
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5-1/4" Minidisk — Soft or Hard Sector 



s 

A 
V 
E 




Dealer and Volume Discounts Available 



SOUTH EAST MEDIA SUPPLY 

P.O. Box 794 6 1 5-870- 1 993 

Hixson. TN 37343 





D 
I 

S 
K 
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H H H Enterprises 

Box 493. Laurel. Md. 

20810 301-953-1155 

ANNOUNCING!!! 
GIMIX MEMORY!!! 

32K OF STATIC RAM 

32K OF STATIC RAM on one card WITH, 
extended addressing (to 1Meg), fully soc- 
keted, any 8K segment can be defeated, 
fully dip switched, all gold contacts and the 
QUALITY of GIMIX. 

32 K FOR ONLY $548.15 

24 K FOR ONLY $438.14 

16 K FOR ONLY $328.12 
All sizes come with ALL sockets so just 
buy what you need and fill in the blanks with 
21 14s latter. 

SOFTWARE CONTROL BOARDS 
16 K ram with software control of 4 ea. 4K 
blocks for address, write protect and phan- 
tom. 

16K GHOSTABLE ONLY $368.16 



Sw GIMIX Ad on page 3 



KING OF THE HILL 

VIDEO BOARD is the ONLY one \ 
software control of character generators 
and half/full intensity, with reverse and 
graphics and RAM character set. You can 
load character sets from your disk or tape 
under program control! Ml! 

VDM76 (GHOSTABLE) ONLY $458.76 

GIMIX MAINFRAME 

32K with choice of I/O card, a super CPU, 
fan, KEY switch, BIG power, 1 5 slot mother 
board, DIP switch readdressing. 
SYSTEM 49 ONLY $1549.49 
Also — with the system, order the VDM+ , 
a Cherry Kbd., 12 inch monitor, and all 
cables for only $810 extra, and beat any 
terminal. 

SYSTEM 49+ + ONLY $2359.49 

H H H ENTERPRISES 

BOX 493, Laurel, MD. 

ZIP 20810 
PHONE 301-953-1155 




ED SMITH'S SOFTWARE WORKS 
6809 SOFTWARE TOOLS 

RRMAC M6B09 RELOCATABLE RECURSIVE MACROASSEMBLER. 

The one Assembler thai eontams rea/ macro capabilities (s*e our 
NOV DEC AD) RRMAC is designed wilh ihe assembly language 
programmer in mind and conlatns many programmer convenience 
realises RRMAC contains a mini. editor, supports spooling or 
co-resident assembly, allows Insen riles, is romable. generates 
cross-references, execution times, lists target addresses of all relative 
references 

M69RR 1150.00 

SQEN M09O9 DISASSEMBLER/SOURCE GENERATOR wtll produce 
source code (wilh symbolic lab* ts) suitable for immediate re assembly 
or re*edrling The oulpul source fit* can be put on tapa or disk. A full 
Assembly type output haling wilh labels and mnemonic instructions can 
be printed or displayed on your terminal Large object programs can be 
segmenled into small source files. 

M69RS $50.00 

ANNOUNCING TWO NEW M6609 CROSS DEVELOPMENT TOOLS 
CROSS BAK-A 8809 TO 8800 CROSS MACROASSEMBLER that 
runs on your M6809 development syslem to produce relocatable 
M8800 objeci code Has all features of M69RR (see above) Includes 
6800 Linking Loader 

M09CX $200.00 

CROSSGEN— A 6600 OBJECT CODE DISASSEMBLER/SOURCE 
GENERATOR thai runs on your M6809 development system Has all 
features of M69RS (see above) An invaluable fool lor converting all 
those 8800 objeci files over to the M6809 

M69CS $75.00 

All programa are relocatable and come complete with Linking Loader. 
Programmers Guide and extensively commented assembly nsiing 
Available on 300 Baud cassefle or mini- floppy disk For disk, specify 
SSB or FLEX Source Text mput/outpul is TSC SSB editor/assembler 
com pal able 

Dtatfr inqutftrx •+rkomr FICX i» uodemork at TSC 

Ed Smith e SOFTWARE WORKS 
P.O. Box 339. Kedondo BdACh, CA 90277. (213) 373-3380 



CT-64 CT-1024 

• FASTI Average Screen Writing Speed: 19K 
baud 

• Memory Mapped Video Adapter for your CT-64 
or CT-1024. 

• Just plug it in and go. 

• The terminal works like normal until the 
supplied output routine is used, thentheCT-64 
or CT- 1 024 display works at processor speed. 

• TheJ.B.L Video Boardtakesl main SSSOslot. 

• Video Memory can be dip switch selected to 
any 1K memory slot, 

• CombinetheJ,B.L Video Boardwithourupand 
coming pseudo graphics adapter board and 
you put new life into the old CT-64. 

• The J.B.I. Video Board comes buHt and is 
jumper selectable for either the CT-64 or 
CT-1024. 

• If your terminal is CT- 1 024 we need to know if it 
is a standard 32 characters per line; or has 
been modified for 64 characters per line. 

if SHIPPING NOW! 

The J BJ. Video Board sels for: 

$169.00 with your 21L02 S 

$179.00 with our 21 L02 S 
(8-21 L02S are required) 

We have been a dealer for SVVTPC since 1976. 

Johnson Micro Computer 

2607 E. Charleston 
Las Vegas, Nevada 89104 

T-702-384-33$4 

Mastercharge and Visa accepted 
Dealer inquiries invited 
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Software Source Books 



TM 



Combining detailed descriptions with complete source listings, these 
books explain the internal operations and algorithms used in Hemenway 
Associate's popular systems software. 

How much would such a complete software resource cost 7 If you've seen 
the PAPERBYTE books by Jack Hemenway and Robert Grappel you know how 
inexpensive they can be. And now you can have the companion volumes to the 
RA680GML macro assembler and LINK68 linking loader books. 

Remember, these are not Just books: tney are SoftwareSourceBooks 

complete Software resources! Order them today; VISA and MasterCharge 
accepted. 

TM 

CP/fifl QPBRATIMQ SYSTEM 

t*34-95J 



PIP Peripheral Interchange 

Program transfers data 

between physical devices 

Wildcard Filenames and Extensions 

Relocatable anywhere in 

Memory 

Extended Instruction set 

includes 6809-type instructions 

(PSHX, PULX, etc) 



Device-independent I/O 
Random and Sequential Files 
Fits in less than 8K 
Chaining and overlaying 
Single Supervisor Call 
furnishes all DOS services 
Easily interfaced to new 
devices and peripherals 
Dynamic file allocation 



STRUc tured BAsic Language t STRUBAL+ 
for botn business and sc ientifi 



TM 



) COMPIL ER 



IW5.95J 1 



c uses 



Variable precision from 4 to 

U digits 

Structured Programming forms 

Produces Relocatable and 

linkable code 

CO ON and DUMMY sections 



• Extensibility 

• String Handling 

• Full scientific package 
Data structures with 



mixed data types 



HfiflH 



Macro Linking Cross Assembler 



• Runs on any M6800 

• Full Macro facilities 

• COMMON section for the 
production of ROMable code 
Conditional Assembly 



and 



* Generates linkable 
relocatable code 

* Sorted Symbol table listing 

* Hash-coded Symbol table 
for speed 



Hemenway Associates Inc. 101 Tremont St. Boston MA 02108 
Name Title Company 



Street City State Zip 

( ) Check enclosed in the amount of $ 

(. ) Bill VISA ( ) Bill MasterCharge 

Card No Exp. Date.... 

Please send the following books: 



Add $0.75 per book to cover postage and handling 
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SURPLUS ELECTRONICS 



ASCII 




ASCII 



WITH FLEX DRIVERS® 

IBM SELECTRIC 

BASED I/O TERMINAL 

WITH ASCII CONVERSION 

INSTALLED $645.00 



• Tape Drives • Cable 

• Cassette Drives • Wire 

• Power Supplies 12V15A, 12V25A, 
5V35A Others. • Displays 

• Cabinets • XFMRS ♦ Heat 
Sinks • Printers • Components 

Many other items. SEND Si. 00 FOR 
CATALOG, REFUNDABLE FIRST ORDER 

WORLDWIDE ELECT. INC. 
130 Northeastern Blvd. 
Nashua, NH 03060 
Phone orders accepted using VISA 
or MC. CALL 603-889-7661 



6800/6809 SOFTWARE 

ACCOUNTS PAYABLE #1300 

Produce financial reports, print checks, special conlrol teller 
Reports by vendor number, invoice number aged and history Me. 
Auto sorting of vendor and invoice files. Plus check and pre check 
journals. $600.00 

ACCOUNTS RECEIVABLE #1500 
Produces financial reports, prints statements, produces reports by 
customer account number, Invoice b y customer account number and 
Invoice by in vo fee number Print aged report and Irial balance. Keeps 
history life and auto sorting of files. 1*00.00 

GENERAL LEDGER #100 

Program updates to ledger files and atso generates reports on 
payroll, sales, accounts payable, cash and expense statistics. 
Balance sheet and profit A loss reports Information can be 
generated lor year end laxes. 941 and W2 forms. $595.00 

INVENTORY I, #600 
Inventory lor a small company, Produces activity reports lor day. 
month and year. Minimum quantity search. Inventory list by class, by 
vendor or complete with totals and financial report. S too 00 

INVENTORY II, #700 
Produce inventory reports by description or vendor, print activity 
reports tor one day, one month or one veer Quick search by pari 
number, produce total inventory and financial report. (For one 
slore) $200.00 

INVENTORY III, #800 

Same as inventory II, * 700. but produces reports lor eight 
stores, 5300,00 

SHIPPING/RECEIVING 

Produce your business financial report, produce reports on sales, 
accounts receivable and last purchase by customer. Prim mailing 
labels and print customers bills. 75.00 

MAILING LABLES #100 

Print mailing labels from your complete fite. lor a particular r:i(y or 
siaie. Use one-part mailing labels. $ 50.00 

MAILING LABELS #400 
Same as #100. bul also prints labels toy names Use multiple-pan 
labels il 25.00 

BASIC— 0935 

For Ihose with applications in SWTP 3.5 BASIC. Runs on 6800 and 
8809S. 30% taster and can be used with existing 8800 BASIC 
Programs. No manual, commands and statements same as SWTPC 
8 ASIC 3.S. Ideal to keep you going while changing to new BASICS 
514 or 8 Inch 00 Disk, with Renumber routine $ $0.95 

''Customized programs for your business requirements* » 
Charge your order to your Visa or Master Chirgt 

Available from Computer Stores or order direel from: 

Omnilronics Inc. 1897 Rl. 33. Concord Square. 

Hamilton SO.. NJ 08690 




COMPUTERWARE 



DOS 



Same great features as 
SSB'S DOS 68.51!!! 



Also 
on the 
horizon 



MONITOR 



compatible with new 
SWTPC CPU-con- 
tains SSBS disk 
boot software 



EDITOR 

ASSEMBLER 

TEXT PROCESSOR 



Random BASIC 



of course I 



write for information 



COMPUTERWARE 

(714)436-3512 



P.O. Box 666 

Encinitas, CA 92024 



RANSITION ENTERPRISES, INC 



We ore pleased to announce our entry into the 
solar energy field. This industry Is widely 
recognized as being In a stage of development 
similar to the microcomputing industry a few 
years ago. As we develop new products In this 
oreo. we will make them available through our 
soles representatives. The EX50 (extender 
board) and CI50 (control Interface) will continue 
to be available from our dealers, and alt corre- 
spondence should be addressed to them. 



in England: 

Sirius Cybernetics, Ltd, 
7 Euston Place 
Leamington Spa 
Warwickshire, England 

In the US: 



in Switzerland: 

DigicompAG 

Werdstras$e 36 

8004 Zurich, Switzerland 



Disney's Electronics 

6153 Fairmount Avenue 

Suite 11 1 

San Diego, CA 92120 

Floppy Disks, printers & components 
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SUPER 
SOFTWARE! 

MICROWARE 6800 SOFTWARE IS 
INNOVATION AND PERFORMANCE 



MICROWARE 

SYSU-MS C:oKI»(MArJ<>X 



P.O. BOX 4665 

DES MOINES, IA 50304 

(515) 279*6644 



LISP Interpreter 

The programming languoge LISP oilers oxcitmg now possib Mies lor 
microcomputer applications A highly interactive intorproler thai uses 
risUtypedala structures which ore simultaneously rfala and executable 
instruction* USP lo/ilures on unusual structured, recursive function, 
oriented syntax Widely usod for processing artificial mielhgence. 
oducalion simulation symbolic and computer-aided design 6B00 
LISP requires a inrmmum Of I2K RAM 
Pf let 176.00 

A/BASIC Compiler 

The ever-growing A/BASlC lamily is inrealemng old-fashioned 
assembly language programming in a big way This BASIC compiler 
generates pure last olhcionl 6600 machine language from easy lo 
wnlo BASIC source progrems Uses ullra-laslmleger math extended 
string functions boolean operators and real -lime operations 0utpv>1 >s 
ROMable and RUMS WITHOUT ANV RUN-TIME PACKAGE Disk ver- 
sions have disk I/O statements and require l2K memory and host DOS 
Cassette version runs m 8K and roquiros RT/66 operating syslem 
Pr»ce Disk Eitendod Version 2 1 I ISO 00 
Cassette Version i $66 00 

A/BASIC Source Generator 

An add-on option lor A/BASIC Compiler disk versions lhat adds an 
rxtra third pass which generate! a lult assembly language output 
listing AND assembly language source Me Uses original BASIC names 
and inserls BASIC source lines as comments SSB and SWTPC 
MtnrfieH version available 
Price S75 00 

A/BASIC Interpreter 

Here it is - a super. last A/BASlC interpreter thai is source-compatrbie 
with our A/BASIC compiler' Now you can interactively edit, execute 
and debug A/BASlC programs with the ease op an interpreter— then 
compile to supor otticieni machine language Also a superb stand- 
alone applications and controt-oriented interpreter Requires 6K RAM 
Thecassotlo version *s porfoct for Motorola D2 Kits 
Price S75 00 

RT/68 Real Time Operating System 

MIKBUG— compatiblo ROM lhat combines an improved monitor/ 
debugger w<th a powerluf multitasking reahtrme operaling system 
Supports up lo 16 concurrent tasks oi 6 priority teveis plus real nme 
clock and mlorrupt control Thousands in use since 1976 handling oil 
types ot applications Available on 6630 (MlKBUG~type}or 270B 
lEPROMntypa) ROM Manual is a classic on 6600 real time applications 
and contains a lull source program lislrng 
Price RT66MX 166301 $55 00 
RT6BMXP (2708) $55 00 

6800 CHESS 

A challenging chess program lor the 6800 Two selectable ddficully 
levels Displays formatted chess board on standard terminals Re* 
quires 8K memory Machine language with A/BASIC source listing 
Price $50 00 



Out %onmmtm ►» a viable (Or moti DOP*/«i 6600 sy*J»m» on c«iseti* or 6***nc 
un«ii Olhti*.u notad 0«tk *4r*OfH «v*l«t)* on S S 8 SWTPC OT MoHHCtfa 

MOOS Pioit* tp«ciH *n<n you i«tK»r« Pnc* o'd«'i «i« «v«co<n#d w« accept 
MASIERCmARQC anO VISA W« H* lo »n»p oiMi« w.ir>m ?4 ftours Oi >«c*j>* 
n««M cm or »«fire A vou >eow>r« •Odmonil >ni<xm4rtw** or our ir«* catalog 
McrOw«i« «oit«»a/« i% avaitaota lor OEM and euuom apprcaboos 



*68' MICRO JOURNAL 

it The only ALL 6600 Computer Magazine. 
if More 6800 material than all the others com- 
bined: 

MAGAZINE COMPARISON 

(2 year*) 

Monthly Averages 

6800 Articles 



KB 
7.8 



TOTAL 
PAGES 



BYTE CC DOBB'S 

6.4 2.7 2.2 19.1 ea. mo. 

Average cost for all four each month: $5.88 
(Based on advertised 1-year subscription price) 

68* cost per month: $1.21 

That's Right! Much. Much More 

for About 

1/5 the Cost! 

1 -Year $1 4.50 2 Years $26.00 3 Years $36.50 

OK, PLEASE ENTER MY SUBSCRIPTION 

Bill My: Master Charge Q — VISA □ 

Card ^ Exp. Date 



For □ 1-Year □ 2 Years □ 3 Years 
Enclosed: $ . 



Nam** 




State 



-Zip. 



My Computer Is: 



68 MICRO JOURNAL 
3018 Hamlll Road 
HIXSOH. TN 37343 



Foreign surface add $9.50 per year. 
Foreign Air Mall add $29.00 per year. 




$&i&m&* 
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Life subscription $175.00 
NOTE: CANADA & MEXICO ADO $4.50 per year surface. 
New subscriptions require 6-8 weeks processing. 
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NOW INDUSTRIAL QUALITY AT LOW COST 

FROM THOMAS INSTRUMENTATION 






Industrial system boards are now available separately for OEM, prototyping or hobbyist applications. 
Shipped from stock, these are the same quality cards used in monitors and machine tool controls 
designed for GM, LTI, and General Electric. All cards are SS-50 buss compatible and are suitable for 
dedicated applications. The CPU card and the Video RAM Card may be combined on a Tl backplane 
as a stand-alone micro — ideal for prototypes or hobbyists. ATTENTION OEM's: If you have a control 
data acquisition, monitoring, or other microprocessor application. Check with Tl tor more information 
about custom software design for the Tl CPU or any other 6800 series system. Tl also has non-SS-50 
buss single board 6800 systems. 




SS-50 SUPER CPU 

• SS-50 or stand alone computer 

• 1K of RAM at $A000 I/O on board at $A400 (Relocatable) 

• 2K Monitor (Mikbug compatible) in 2708 EPROM 

• 2 8 bit parallel ports with 2 control bits and power 

• RS-232 ACIA port, 2nd TTL ACIA optional 

• 3 1 6 bit counter/timers (expandable to 6 add 2nd 6840) 

• 128 byte RAM at 0000 is jumper selectable 

• Battery back-up for 32 bytes of RAM 

• Plug back to back with Video RAM for Stand alone micro or 
customized smart terminal 

ASSEMBLED $195.00 
CARD AND DOCUMENTATION S49.00 



SS-50 VIDEO RAM 

• Fully synchronous operation — No jitter 

• 7 by 9 Characters Programmable reverse video 

• Full 128 Character ASCII set 

• IK of memory can be mapped to any 1K boundary 

• Full documentation includes software (Replaces OUTEE) 

ASSEMBLED $149.00 
CARD, CRYSTAL and DOCUMENTATION $39.00 




9 m 8 m 



8* I^JU m$Mjt ft^_M^k 




Tl SS-50 Wire-Wrap Card 24,00 

Tl SS-50 Parallel I/O Card 95.00 

Card only 35.00 

GIMIX 16K Static RAM w/Soft addressing 368.00 

GIMIX 16 RAM without Soft addressing 298.00 

3, 4, 7 SLOT Backplanes (per slot) 4.00 

Tl cards available from stock 

THOMAS 
INSTRUMENTATION DEAL£RS pOR 

168-8th Street, Avalon, N.J. 08202 

Phone (609) 9674280 G | M | X SWTPC SSB 



CALL FOR DEALER, OEM. AND QUANTITY PRICES 
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C M P U T E R W A R E 

6800 Specialists Since 1975 



(si 



Small Business Software 



all run on 5" or 8" disk 



S> 



•NEW* 

Accounts Receivable $1 49 

Same comprehensive features 
as commercial system without 
invoicing and statement billing 

Accounts Payable $149 

Cash Requirements Projection; 
detail, summary &YTO 
reporting; audit trails 

Payroll SI 49 

additional State codes S50 

Ail Federal & Calif, tax calcul- 
ations; extensive detail & 
summary reporting 



Inventory SB9.95 

Over 1,000 items on a 5" disk 

Cash Flow Bookkeeping S99.95 

Detail & Summary reports for 
user*defined expense ledger 

Mailing System SB9.95 

User-defined codes for 
selective sorting 



watch for our 



6809 Software 

DOS, Monitor, 
Random BASIC 
etc. 



^Commercial Systems ^) 



Inventory Control $750 

with Order Entry 
BID of Material, Re-order reports; 
multiple price levels, audit trails; 
Where-Used & Parts Shortage 
reports; detail & summary 
reporting 



Accounts Receivable S600 
with Invoicing 

Extensive report capabilities 
including Aged & Overdue 
reports, statement billing; audit 
trails; comprehensive invoice 
entry & posting 



♦NEW 



$500 



Payroll 

All Federal tax options; 
Automatic deduction capabilities; 
Vacation & sick pay calculations; 
Extensive detail and summary 
reporting; 

complete payroll register; 
Password protection. 
State tax processing $75.00 



^Development Tools j 



RENBAS $24.95 

with source on disk $34.95 

renumbers BASIC programs 
resolves line references 

XREF $24.95 

with source on disk $34.95 
assembly language program 
cross reference 



•NEW 
BASREF $34.95 

with source on disk $44.95 

cross reference of BASIC 
program line nos & variables 

MUST FOR BASIC PROGRAMMER 



Write for complete 
system descriptions and 
hardware requirements 



Random BASIC $99.95 

PRINT USING, EDIT, ON ERROR, 
directrandom record access 



PROM BASIC $100.00 

8KAMSI BASIC, prommable 
features of cassette BASIC 

Cassette BASIC $34.95 

file handling. 9 digit accuracy, 
twice as fast as SWTPC 



COMPUTERWARE 

P.O. Box 668 

151 2 Encinitas Blvd. 

Encinitas, CA 92024 

(714)436*3512 



6800 Hardware too! 

Smoke Signal Broadcasting, 
Centronics, Anadex, NEC, 
SOROC, Micro Works, 
SWTPC, Ledex 
Sanyo, Seals 
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'68' Micro Journal 



THE source 

• t ^^W ONTHE 

VjV-r^ 6809 

IMMEDIATE DELIVERY FOR SWTPC USERS, 8" or 5% " DISKETTE 
SMOKE SIGNAL BROADCASTING USERS, INQUIRE 

CSI-1 Operating Systems, PASCAL Compiler, Screen Editor, Filer, 

Linker, Library, Setup, Binder, Interpreter, BIOS $250.00 

CSI-2 BASIC Compiler, YALOE, (Line-editor for hard-copy terminals), 

Patch, Disassembler, Calculator $100.00 

CSI-3 MACRO Assemblers for 6809, 6800 and other Microprocessors . .$100.00 

ALL THREE DISKS and MANUAL (SYSTEM) $419.00 

FREE! UCSD PASCAL USER'S MANUAL PLUS SWTPC 
IMPLEMENTATION NOTES WITH PURCHASE OF CSI-1 

68000 Coming, Summer, 1980 
68000 Assembler, Spring, 1980 

OEM and DEALER INQUIRIES INVITED 




CONTROL SYSTEMS, iNC. 



MICROSYSTEMS DIVISION 



1317 CENTRAL AVE. KANSAS CITY, KANSAS 66102 
CALL TOLL-FREE (800) 255-4411 j^Mh 

"UCSD Pascal" is a registered trademark off The Regents of The University of California 



Continental U.S.A. Only 
(Kansas Residents call 913/371-6136) 



VISA 



66 Micro Journal 
30iBMamitl Rd 
Hiason. TN 37343 



Second Class Postage Paid 
At Chattanooga. TN 
ISSN 0194 5Q2S 







6809 PROCESSING POWER/ 

Thr n SBC/9. Only $199.95. 

CO 




Fully compatible with he SS-50 L _ _ 
requiring no modihbatlan of tjw mother 
board, memory o> l70',Sfo*e* — 4b< 
SBC/9" is also a complete single- 
board control conjputer with its own 
ROM oper at ing " system - -B &M, 
peripheral ports and a full -range bauf 
clock generator 



Make the SBC/9 the heart of your computer and put to work 
the most outstanding microprocessor available, the 6809. 



the Mighty 6609 

Featuring more addressing modes 
than any other eight-bit processor, 
position-independent coding, special 
16-brt instructions, efficient argu- 
ment-passing calls, automcrement/ 
autodecrement and more, it's no won- 
der the 6809 has been called the "pro- 
grammers dream machine ' 

Moreover, with the 6809 you get a 
microprocessor whose programs typ- 
ically use only one-half to two-thirds as 
much RAM space as required for 6800 
systems, and run faster besides 

And to complement the extraordi- 
nary 6809, the Percom design team 
has developed PSYMON' an extraor- 
dinary 6809 operating system for the 
SBC/9- 
PSYMOfT — Percom SYttim MOMIor 

Although PSYMON" mciudes a full 
complement of operating system 
commands and 15extefnaliy caHeble 

* trademark o< Percom Data Company, inc 



utilities, what really sets PSYMON* 
apart is its easy hardware adaptability 
and command extensibility 

For hardware interfacing, you 
merely use simple, specific device 
driver routines that reference a table of 
parameters called a Device Confrol 
Block (DCS) Using this technique, in- 
terfacing routines are independent of 
the operating system 

The basic PSYMON" command 
repertoire may be readily enhanced or 
modified When PSYMON" first re- 
ceives system control, it initializes its 
RAM area, configures its console and 
then 'looks ahead' for an optional sec- 
ond ROM which you install in a socket 
provided on the SBC/9* card This 
ROM contains your own routines that 
may alter PSYMOIST pointers and 
either subtly or radically modify the 
PSYMON* command set II a second 
ROM is not installed, control returns 
im medialely to S YMON " 



Provision tor multiaddress, 8-bit bidirec- 
tional parallel I/O data lines for interfac- 
ing to devices sucti as an encoded 
keyboard. 

A serial Interface Reader Control output 
for a cassette, tape punerVreader or simi- 
lar device 

An intelligent data bus: multi-level data 
bus decoding that allows multiprocess- 
ing and bus multiplexing of other bus 
masters 

Extended address brie capability — ac- 
commodating up to 16 megabytes of 
memory — that does not disable the on- 
board baud rate dock or require addi- 
tional hardware in I/O slots 
On-board devices which are fulty de- 
coded so thai off-card devices may use 
adjoining memory space, 
Fully buffered address, control and data 
lines 



The 5BC/9" complete with P5VM0N"tn 
ROM, IK of RAM and a comprehensive 
users manual" costs just $1 99 95 



■ 



PEfiGOM 




PERCOM DATA COMPANY INC 

i 

Percom per/p/ie/i/* (or personal computing 



To plica ait order or requoet additional I 
call call-free 1-800-527*1 592. For technical infor- 
mation call (21 4) 272-3421 Orders may be paid by 
check, money order, COD or charged to a VISA or 
Master Charge account Texas residents must add 
59b sales tax 

\H *m W I TH OUT Wttt 






